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ABSTRACT 


UBRARY 


A  promising  use  of  Computer  Aided  Prototyping  System  (CAPS)  is  to  support 
concurrent  design.  Key  to  success  in  this  context  is  the  ability  to  automatically  and 
reliably  combine  and  integrate  the  prototypes  produced  in  concurrent  efforts.  Thus,  to  be 
of  practical  use  in  this  as  well  as  most  prototyping  contexts,  a  CAPS  tool  must  have  a 
fast,  automated,  reliable  prototype  integration  capability. 

The  current  CAPS  Change-Merge  Tool  is  fast,  automated,  and  uses  a  highly 
reliable  formalized  semantics-based  change-merging  method  to  integrate,  or  change- 
merge,  prototypes  which  are  written  in  Prototype  System  Description  Language  (PSDL). 
This  method  can  guarantee  correct  merges,  but  it  loses  the  prototype's  design 
decomposition  structure  in  the  process.  The  post-merge  prototype  is  fully  functional,  but 
the  design  decomposition  structure  vital  to  prototype  understandability  must  be  manually 
recovered  before  post-merge  prototyping  can  continue.  The  delay  incurred  is 
unacceptable  in  a  rapid  prototyping  context. 

This  thesis  presents  a  software  design  and  Ada  implementation  for  a  formalized 
algorithm  which  extends  the  current  CAPS  Change-Merge  Tool  to  automatically  and 
reliably  recover  a  merged  prototype's  design  decomposition  structure.  The  algorithm  is 
based  in  formal  theoretical  approaches  to  software  change-merging  and  includes  a 
method  to  automatically  report  and  resolve  structural  merge  conflicts.  With  this  extension 
to  the  Change-Merge  Tool,  CAPS  prototyping  efforts,  concurrent  or  otherwise,  can 
continue  post-merge  with  little  or  no  delay. 
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I.  INTRODUCTION 


This  thesis  presents  a  software  design  and  Ada  implementation  for  the 
decompose_graph  algorithm  presented  in  [Ref.  1].  The  decompose_graph  algorithm 
extends  the  capability  of  the  Computer  Aided  Prototyping  System's  (CAPS)  Change- 
Merge  Tool  to  automatically  combine  and  merge  changes  to  a  prototype's  design 
decomposition  structure  [Ref.  1,2]. 

The  purpose  of  CAPS  is  to  facilitate  rapid  prototyping  of  hard  real-time  systems, 
especially  systems  of  medium  to  large  size  [Ref.  2].  A  promising  use  of  CAPS  is  in 
support  of  concurrent  design  efforts  where  separate  design  teams  prototype  different 
aspects  of  a  system  in  parallel.  These  parallel  efforts  can  significantly  reduce  system 
design  time  and  result  in  significant  cost  savings. 

Key  to  success  of  concurrent  prototyping  is  the  ability  to  automatically  combine 
and  integrate  the  prototypes  produced  in  concurrent  efforts.  Thus,  to  be  of  practical  use  in 
this,  as  well  as  most,  rapid  prototyping  contexts,  CAPS  must  have  a  fast,  automated, 
reliable  integration  capability. 

The  current  CAPS  integration  capability,  the  Change-Merge  Tool,  is  fast, 
automated,  and  uses  a  highly  reliable  formalized  semantics-based  change-merging 
method  to  integrate,  or  change-merge,  prototypes  which  are  written  in  Prototype  System 
Description  Language  (PSDL)  [Ref.  2,  3].  This  method,  based  on  prototyping  slicing, 
guarantees  correct  results  for  conflict-free  merges  [Ref.  2,  4].  However,  the  use  of 
prototype  slicing  requires  the  decomposition  structure  of  the  prototypes  to  be  removed 
prior  to  merge.  The  merge  results  in  a  fully  functional  prototype,  but  the  prototype's 
decomposition  structure  is  lost  in  the  process. 


For  PSDL  prototypes  of  any  size  or  complexity,  decomposition  structure  is  vital 
to  prototype  understandability,  and  thus  critical  to  success  of  sustained  rapid  prototyping. 
In  the  case  of  the  current  CAPS  Change-Merge  Tool,  the  design  decomposition  structure 
lost  in  change-merge  must  be  manually  recovered  before  post-merge  prototyping  can 
continue.  The  delay  incurred  is  unacceptable  -  it  effectively  takes  the  rapid  out  of  rapid 
prototyping.  [Ref.  1] 

The  decompose_graph  algorithm  extends  the  CAPS  Change-Merge  Tool  to 
automatically  recover  the  design  decomposition  structure  lost  in  the  prototype  change- 
merge  and  reconstruct  a  prototype  which  has  a  decomposition  structure  which  accurately 
reflects  structural  changes.  The  algorithm  is  based  in  formal  theoretical  approaches  to 
software  change-merging  which  "...  work  on  special  kinds  of  lattices  that  are  also 
Brouwerian  or  Boolean  algebras...."  [Ref.  1],  and  includes  a  method  to  automatically 
report  and  resolve  structural  merge  conflicts.  With  this  extension,  post-merge  prototyping 
with  CAPS  can  continue  without  the  unacceptable  delay  incurred  by  the  need  to  manually 
recover  design  decomposition  structure. 

In  the  context  of  this  thesis,  the  decompose_graph  algorithm  is  applied  to  PSDL 
prototypes.  However,  the  algorithm  also  has  applicability  ". .  .to  the  informal  dataflow 
diagrams  commonly  used  in  requirements  modeling  and  software  design...".  [Ref.  1] 

The  purpose  of  the  following  chapters  and  appendices  is  to  provide  the  reader 
with  an  understanding  of  the  software  design  and  Ada  implementation  of  the 
decompose_graph  algorithm.  The  formal  theory  underlying  decompose_graph  given  in 
[Ref.  1]  is  not  restated. 

Chapter  II  of  this  thesis  provides  an  overview  of  PSDL  prototype  structural 
decomposition  in  the  context  of  decomposition  recovery.  Chapter  III  gives  an  overview 
of  what  can  be  considered  the  two  stages  of  PSDL  prototype  decomposition  structure 
recovery.  Chapter  IV  presents  a  detailed  design  for  decompose_graph.  Chapter  V 


provides  an  introduction  to  decompose_graph  implementation,  discusses  test  results,  and 
directs  the  reader  to  Appendix  A  for  source  code  listings.  Chapter  VI  presents 
conclusions.  Appendix  B  lists  changes  to  PSDL_TYPE  abstract  data  type  necessary  to 
accommodate  the  implementation  of  decomposegraph.  Appendix  C  lists  test-cases, 
test-drivers,  and  test  results. 


II.  PSDL  PROTOTYPES  AND  DECOMPOSITION  RECOVERY 

PSDL  is  a  high  level  specification  and  design  language  developed  for  use  in  the 
CAPS  development  environment  for  specifying  and  designing  prototype  software 
systems  [Ref.  1].  It  is  detailed  extensively  in  [Ref.  3]  and  [Ref.  4].  In  brief, 

PSDL  represents  software  systems  as  generalized  dataflow  diagrams 
annotated  with  timing  and  control  constraints. .  .The  notation  is  executable  and  has 
a  formal  semantics. .  .that  is  a  compatible  refinement  of  informal  dataflow 
diagrams  traditionally  used  in  software  design.  A  PSDL  prototype  is  a 
hierarchical  network  of  components.  [Ref.  1] 

All  PSDL  operators  have  a  specification  and  implementation  part.  The 
implementation  part  of  an  atomic  operator  specifies  an  executable  module  written  in  a 
language  such  as  Ada  or  C.  The  implementation  part  of  a  composite  operator  is  a  graph 
which  contains  atomic  or  composite  operators  as  vertices,  the  data  streams  which  connect 
the  operators  as  edges,  and  sets  of  timing  and  control  constraints  which  restrict  the 
behavior  of  these  operators  and  data  streams.  [Ref.  1] 

Every  PSDL  prototype  has  at  least  has  one  composite  operator  -  the  root  operator. 
In  Figure  2.1,  this  is  the  doubled  circled  operator  labeled  "ROOT".  (In  Figures  2.1 
through  2.1 1,  composite  operators  are  indicated  by  double  circles  and  atomic  operators  by 
single  circles.)  Composite  operators  represent  a  grouping  of  operators  based  on  some 
design  criteria  (e.g.,  commonality  of  function).  They  are  the  feature  of  PSDL  that 
facilitates  top-down  design  decomposition  for  prototypes.  They  represent  a  point,  or 
level,  of  design  decomposition. 
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Figure  2.1 :  PSDL  Prototype  with  One  Composite  Operator  -  ROOT 


In  terms  of  the  functionality,  composite  operators  are  virtual  -  the  functionality  of 
the  composite  resides  in  its  child  operators.  For  example,  assuming  that  the  atomic 
operators  in  Figures  2.1  and  2.2  are  functionally  equivalent,  the  prototype  in  Figure  2.2  is 
functionally  equivalent  to  the  prototype  in  Figure  2.1.  The  functionality  of  composite 
operator  COl  resides  in  atomic  operators  C  and  D,  and  the  functionality  for  composite 
operator  C02  resides  in  atomic  operators  G  and  H.  Figure  2.3  gives  an  actual  PSDL 
specification  for  a  composite  operator  named  gui_in  and  one  of  its  child  atomic 
operators,  guiinputeventmonitor. 

For  the  purpose  of  understanding  the  decompose_graph  algorithm  and 
decomposition  recovery,  there  are  several  ways  to  view  a  PSDL  prototype.  One  view  is  as 
suggested  above:  as  a  hierarchy  of  directed  data-flow  graphs  where  the  vertices  are 
operators  and  the  edges  are  data  streams.  The  implementation  graphs  of  composite 
operators  capture  this  view.  Figure  2.1  gives  a  simple  example  of  the  implementation 
graph  for  the  root  composite  operator  of  a  simple  prototype  which  has  all  atomic 
operators.  The  operators  are  labeled  A  through  H  and  the  data  steams  are  labeled  SI 
through  S 10. 

Figure  2.1  is  also  an  example  of  a  post-merge  flattened  (expanded)  prototype.  It 
has  only  one  composite  operator  -  the  root  operator,  and  thus  only  one  implementation 
graph.  The  parent  of  every  atomic  operator  in  a  flattened  prototype  is  the  root  operator.  A 
prototype  which  has  decomposition  structure  would  have  the  same  number  of  atomic 
operators  as  its  flattened  version,  but  many  of  these  operators  would  be  allocated  to  the 
graphs  of  other  composite  operators. 


Figure  2.2:  PSDL  Prototype  of  Figure  1  "Decomposed"  with  Composite  Operators  COl  and  C02 


OPERATOR  guiin 
SPECIFICATION 
OUTPUT 
gui_in_str  :  my_unit 
END 

IMPLEMENTATION 
GRAPH 
VERTEX  choose_inputs  :  200  MS 
VERTEX  gui_input_event_monitor  :  200  MS 

EDGE  gui_in_str 
choose_inputs  ->  EXTERNAL 

CONTROL  CONSTRAINTS 
OPERATOR  choose_inputs 
PERIOD  2000  MS 

OPERATOR  guiinputeventmonitor 
END 

OPERATOR  guiinputeventmonitor 
SPECIFICATION 
MAXIMUM  EXECUTION  TIME  200  MS 
END 

IMPLEMENTATION  ADA  gui_input_event_monitor 
END 


Figure  2.3:  Example  PSDL  Specification  for  a  Composite  Operator  and  an  Atomic  Operator 


Figure  2.2  illustrates  this  idea  where  the  flat  prototype  of  Figure  2.1  has  been 
decomposed  with  the  addition  of  composite  operators  COl  and  C02.  As  Figure  2.2 
attempts  to  illustrate,  atomic  operators  C  and  D  are  now  in  the  graph  of  COl,  and  atomic 
operators  H  and  G  are  now  in  the  graph  of  C02.  The  dashed  circles  and  lines  indicate 
operators  and  data  streams  in  a  composite  operator's  graph.  Also  note  the  labels  for  the 
data  streams  directed  to  and  from  COl  and  C02.  They  are  prefixed  with  a  V  to  indicate 
their  virtual  nature  -  actual  data  streams  are  directed  to  and  from  atomic  operators  only. 
Data  streams  to  and  from  composite  operators  are  for  the  most  part  understandability  aids 
for  graphical  display  of  prototypes  in  CAPS  display  tools.  Figures  2.4  through  2.6 
illustrate  this  idea.  Figure  2.4  gives  a  root  level  view  of  the  prototype  of  Figure  2.2,  and 
Figures  2.5  and  2.6  give  a  view  at  the  COl  and  C02  decomposition  level  respectively. 
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Figure  2.4:  ROOT  Operator  Decomposition  view  for  PSDL  Prototype  of  Figure  2.2. 
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EXTERNAL     /  S2 


EXTERNAL 


EXTERNAL 


EXTERNAL 


Figure  2.5:  COl  Operator  Decomposition  view  for  PSDL  Prototype  of  Figure  2.2. 
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EXTERNAL 
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EXTERNAL 


Figure  2.6:  COl  Operator  Decomposition  view  for  PSDL  Prototype  of  Figure  2.2. 

Another  view  of  a  PSDL  prototype  is  as  a  graph  where  nodes  are  operators  and 
the  edges  are  parent-child  relationships.  Leaf  nodes  in  this  view  are  atomic  operators  and 
all  other  nodes  are  composite  operators.  The  basic  decomposition  structure  for  a 
prototype  is  captured  in  this  parent-child  relationship.  Figures  2.7  and  2.8  illustrate  this 
simplified  view.  Figure  2.7  represents  the  parent-child  relationship  view  for  the  flat 
prototype  of  Figure  2.1,  and  Figure  2.8  represents  the  parent-child  relationship  view  for 
the  prototype  of  Figure  2.2.  In  Figure  2.8,  operator  D  is  a  child  of  COl,  and  operator  COl 
is  a  child  of  ROOT.  (In  passing,  note  that  the  ordered  sequence  <ROOT,  C01>  is  the 
ancestor  chain  for  operator  D.) 
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Figure  2.7:  Parent-Child  Relationship  Graph  for  PSDL  Prototype  of  Figure  2.1. 


Figure  2.8:  Parent-Child  Relationship  Graph  for  PSDL  Prototype  of  Figure  2.2. 
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To  illustrate  what  decompose_graph  does,  assume  a  BASE  version  of  a  PSDL 
prototype  a  given  in  Figure  2.9.  COl  of  Figure  2.5  is  added  to  the  BASE  version  creating 
CHANGE  A  as  illustrated  in  Figure  2.10.  C02  of  Figure  2.6  is  added  to  the  BASE 
version  creating  CHANGE  B  as  illustrated  in  Figure  2.11.  CHANGE  A  and  CHANGE  B 
are  now  merged  with  the  BASE  to  create  a  new  version  of  the  prototype.  The  desired 
result  of  the  merge  is  the  prototype  of  Figure  2.2.  However,  the  current  CAPS  Change- 
Merge  Tool  will  produce  the  flat  prototype  of  Figure  2.1.  As  mentioned  previously,  the 
flat  prototype  is  fully  functional,  but  the  design  captured  in  the  BASE,  CHANGE  A  and 
CHANGE  B  decomposition  structures  is  lost.  The  decompose_graph  algorithm  extends 
the  CAPS  merge  tool  to  produce  the  decomposed  merged  prototype  of  Figure  2.2  instead 
of  the  flattened  merged  prototype  of  Figure  2.1. 


Figure  2.9:  BASE  Version  of  PSDL  Prototype 
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Figure  2.10:  CHANGE  A  Version  of  PSDL  Prototype 
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Figure  2.1 1:  CHANGE  B  Version  of  PSDL  Prototype 
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In  sum,  the  decompose_graph  algorithm  can  be  viewed  as  a  two  stage  process. 
The  first  stage  recovers  the  parent-child  relationship  view  of  Figure  2.8  for  the  merged 
prototype.  The  second  stage  reconstructs  the  hierarchy  of  graphs,  decomposed  PSDL 
prototype  of  Figure  2.2  for  the  merged  prototype  based  on  the  parent-child  relationship 
view  recovered  in  the  first  stage. 
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III.  DECOMPOSITION  RECOVERY  STAGES 


The  current  CAPS  Change-Merge  Tool  takes  three  PSDL  prototype  versions  as 
input,  a  BASE  version,  a  CHANGE  to  the  BASE  version  commonly  called  CHANGE  A, 
and  a  second  CHANGE  to  the  BASE  commonly  called  CHANGE  B.  The  merge  tool  first 
produces  a  flattened  version  of  each,  which  transforms  each  into  a  prototype  that  has  one 
composite  operator,  ROOT,  and  one  graph  containing  all  atomic  operators  (see  Figure 
2.1).  The  merge  tool  next  merges  the  specification  parts  of  the  three  root  operators.  It  then 
applies  the  slicing  method  to  the  corresponding  graphs  and  merges  the  results.  The  result 
is  a  flattened  merged  prototype,  commonly  called  MERGE,  that  has  one  merged 
composite  operator,  ROOT,  and  one  merged  graph  containing  all  atomic  operators.  At 
this  point,  design  decomposition  structure  recovery  begins. 

A.       STAGE  ONE:  FINDING  AND  MERGING  ANCESTOR 
CHAINS 

As  mentioned  previously,  automated  decomposition  recovery  for  a  PSDL 
prototype  can  be  viewed  as  a  two  stage  process.  The  first  stage  involves  automated 
recovery  of  the  merged  prototype's  parent-child  relationship  view  of  Figure  2.8.  The  first 
step  in  this  stage  is  to  retrieve  ancestor  chains  from  BASE,  CHANGE  A,  and  CHANGE 
B  for  each  atomic  operator  in  MERGE.  An  ancestor  chain  is  an  ordered  sequence  of 
operator  names  which  reflects  the  positional  context  of  an  operator  in  a  decomposition 
structure  [Ref.  1].  For  example,  C's  ancestor  chain  in  Figure  2.8  would  be  <ROOT, 
C01>;  F's  would  be  <ROOT>.  The  function  find_ancestor_chain  in  the 
decompose_graph  algorithm  finds  and  returns  these  ancestor  chains  [Ref  1]. 

The  next  step  in  this  stage  is  to  merge  the  three  recovered  ancestor  chains  for  each 
atomic  operator  in  MERGE.  The  result  is  one  merged  ancestor  chain  per  atomic  operator. 
The  theory  that  provides  the  capability  to  merge  ancestor  chains  is  developed  and  detailed 
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in  [Ref.  1].  The  end  result  of  the  theory  is  a  formula  for  ancestor  chain  merge  which  has 
the  formalized  mathematical  basis  required  for  reliable  automated  software  tools  such  as 
CAPS.  This  formula  is  detailed  in  [Ref.  1]  and  in  Chapter  IV  of  this  thesis.  The  result  of 
applying  the  merge  formula  to  the  CHANGE  A,  BASE,  and  CHANGE  B  ancestor  chains 
for  a  given  operator  is  a  merged  ancestor  chain  which  at  least  approximates  the  positional 
context  of  the  operator  with  regard  to  the  changes  to  the  prototype's  decomosition 
structure,  and  in  most  practical  cases  exactly  reflects  the  operator's  positional  context 
with  regard  to  changes.  The  procedure  in  decompose_graph  that  performs  ancestor  chain 
merges  is  mergeancestorchain. 

The  theory  developed  in  [Ref.  1]  also  provides  the  capability  to  automatically 
identify,  report,  and  resolve  ancestor  chain  merge  conflicts.  Conflicts  generally  result 
from  differing  positional  contexts  for  a  given  operator  in  its  recovered  ancestor  chains. 
An  example  would  be  an  operator  that  has  different  parents  in  its  CHANGE  A  and 
CHANGE  B  ancestor  chains.  Conflicts  are  resolved  by  taking  the  greatest  lower  bound 
of  the  conflicting  chains  and  assigning  this  as  the  ancestor  chain  for  the  operator.  The 
procedure  in  decompose_graph  that  identifies  and  reports  conflicts  is  report_conflicts; 
the  procedure  that  resolves  conflicts  is  resolve_  conflicts. 

The  end  result  of  this  first  stage  is  a  set  of  conflict-free  merged  ancestor  chains, 
one  for  each  operator  in  MERGE,  which  accurately  reflects  the  significant  decomposition 
structure  of  MERGE  relative  to  CHANGE  A,  BASE,  and  CHANGE  B  versions  of  the 
prototype. 

B.       STAGE  TWO:  PROTOTYPE  RECONSTRUCTION 

The  input  to  this  stage  is  MERGE,  pre-flattened  CHANGE  A,  BASE,  and 
CHANGE  B,  and  the  set  of  merged  ancestor  chains.  The  goal  of  this  stage  is  to 
decompose  MERGE. 
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The  first  step  builds  a  skeletal  hierarchy  of  graphs  decomposition  structure  for 
MERGE  based  on  the  ancestor  chains  recovered  in  stage  one.  During  this  step,  composite 
operators  are  created,  their  graphs  are  populated  with  vertices,  corresponding  edges,  and 
associated  timing  and  control  constraints.  The  first  step  is  complete  when  all  required 
composite  operators  have  been  created  and  all  atomic  operators  have  been  added  to  a 
composite  operator's  graph.  Thus,  the  basic  decomposition  structure  is  in  place,  but 
composite  operator  specification  and  implementation  parts  are  incomplete. 

The  last  step  in  this  stage  finishes  construction  of  composite  operators.  It  involves 
determining  input  and  output  streams  for  composite  operators,  building  virtual  data 
streams,  and  filling  out  specifications.  In  some  cases,  values  and  attributes  for  new 
composite  operators  have  to  be  retrieved  from  their  namesakes  in  CHANGE  A,  BASE, 
and  CHANGE  B  and  merged  to  recover  the  value  or  attribute  (the  reason  being  that 
composite  operators  other  than  ROOT  are  destroyed  in  the  merge,  and  thus  are  not 
available  in  MERGE).  When  this  has  been  the  case,  the  values  and  attributes  are  merged 
using  the  same  algorithms  used  for  these  elements  by  the  current  Change-Merge  Tool. 
The  function  in  decompose_graph  which  reconstructs  the  prototype  is 
reconstruct_prototype.  See  Chapter  IV  of  this  thesis  for  detail. 
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IV.  DESIGN:  DECOMPOSITION  RECOVERY  EXTENSION 


This  chapter  details  the  design  of  the  functions  and  procedures  called  in 
decompose_graph  along  with  significant  support  functions,  procedures,  and  abstract  data 
types.  The  top  level  design  for  the  Decomposition  Recovery  Extension  to  the  CAPS 
Change-Merge  Tool  closely  follows  the  decompose_graph  algorithm  as  given  in  [Ref.  1] 
with  the  only  significant  difference  relating  to  some  of  the  data  structures  used.  The 
design  of  decomposegraph  has  been  allocated  to  three  Ada  packages: 
decompose_graph_pkg,  extended_ancestor_pkg,  and 
reconstruct_prototype_utilities_pkg. 

In  the  remainder  of  this  chapter,  there  is  a  Design  Description  section  for  each 
package  with  a  sub-section  for  each  significant  module  in  the  package.  For  each  module, 
there  is  a  brief  functional  overview,  a  Concrete  Interface  Specification,  and  an  Algorithm 
Sketch.  The  Concrete  Interface  Specification  and  Algorithm  Sketch  are  presented  as 
figures  which  immediately  follow  each  brief  functional  overview. 

A.       DESIGN:  ADA  PACKAGE  DECOMPOSE_GRAPH  PKG 

This  package  provides  the  external  interface  to  the  PSDL  Decomposition 
Recovery  Extension  through  the  decompose_graph  procedure  call.  The  arguments  to  this 
procedure  are  1)  the  psdl_program  data  structures  corresponding  to  pre-expanded 
CHANGE  A  ,  BASE,  and  CHANGE  B  versions  of  the  prototype,  2)  MERGE,  the 
flattened  prototype  that  is  the  result  of  the  merge  of  flattened  (expanded)  versions  of 
CHANGE  A  ,  BASE,  and  CHANGE  B,  and  3)  an  empty  psdl_program  data  structure 
that  is  used  to  return  the  reconstructed  prototype. 

Thus,  given  CHANGE  A  ,  BASE,  CHANGE  B,  and  MERGE  versions  of  a  PSDL 
prototype  as  input,  this  package  returns  a  decomposed  reconstructed  prototype. 
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1.  Module:  decomposegraph 

As  mentioned  above,  decompose_graph  provides  the  external  interface  to  the 
PSDL  Decomposition  Recovery  Sub  System. 

The  decompose_graph  algorithm  presented  in  [Ref.  1]  calls  for  merged  chains  to 
be  stored  in  an  array  ANCESTOR  of  type  extended_ancestor.  In  the  following  design, 
merged  chains  are  stored  in  a  map  of  operator  name  to  ancestor  chain  where  the  ancestor 
chain  is  represented  as  a  variable  of  type  extended_ancestor.  ANCESTORS  is  declared 
as  type  ancestor_chains;  ancestor_chains  is  an  instantiation  of  the  generic  map 
package.  Also  note  that  the  arguments  APSDL,  BASEPSDL,  and  BPSDL  are  of  type 
psdl_program,  whereas  the  original  algorithm  calls  for  them  to  be  of  type  psdl_graph. 
Also,  for  the  following  design,  decomposegraph  is  a  procedure  instead  of  a  function. 


procedure  decompose_graph(A  PSDL,  BASE  PSDL,  BPSDL,  MERGE:  in  psdl_program; 

NEWPSDL:  in  out  psdl_program); 

Input: 

APSDL:  un-expanded  version  of  prototype  Change  A 

BASEPSDL:  un-expanded  version  of  prototype  BASE 

BPSDL:  un-expanded  version  of  prototype  Change  B 

MERGE:  expanded  prototype  that  resulted  from  the  merge  of  flattened  versions  of 

Change  A,  BASE,  and  Change  B. 
NEWPSDL:  empty  psdl_program  data  structure  used  to  return  reconstructed  prototype; 

Output: 

NEWPSDL:  reconstructed  prototype  complete  with  recovered  decomposition  structure. 

Figure  4.1:  Concrete  Interface  Specification  for  decompose_graph 
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Algorithm  decompose_graph(A  PSDL,  BASEJPSDL,  B_PSDL,  MERGE:  in  psdl_program; 

NEWPSDL:  in  out  psdl__program); 

ANCESTORS:  ancestor_chains;  —  map:  operator  name  ->  ancestor  chain 
MERGECHAIN,  ACHAIN,  BASECHAIN,  BCHAIN:  extended_ancestor; 
rootop:  psdl_id; 


begin 


rootop:  psdlid  :=  find_root(BASE); 

for  each  operator  N  in  MERGE 
loop 

if  N  is  an  atomic  operator  then 

A_CHAIN  :=  find_ancestor_chain(N,  rootop,  A); 
BCHAIN  :=  find_ancestor_chain(N,  rootop,  B); 
BASE_CHAIN  :=  find_ancestor_chain(N,  rootop,  BASE); 
merge_ancestor_chains(A_CHAlN,  BASECHAIN,  BCHAIN, 

MERGECHAIN); 
bind  N  ->  MERGECHAIN  to  ANCESTORS; 
endif; 
endloop; 

report_conflicts(  ANCESTORS); 
resolve_conflicts(ANCESTORS); 

NEWPSDL  :=  reconstruct_prototype(MERGE,  APSDL,  BASEPSDL,  B  PSDL, 

ANCESTORS); 


end  decomposegraph; 


Figure  4.2:  Algorithm  Sketch  for  decompose_graph 

2.  Module:  findancestorchain 

This  function  is  called  three  times  for  every  atomic  operator  "N"  in  MERGE.  The 
three  calls  recover  N's  ancestor  chains  from  CHANGE  A,  CHANGE  B,  and  BASE 
versions  of  the  prototype. 

Thus,  for  large,  complex  decomposition  graphs,  design  and  implementation  of  an 
efficient  search  algorithm  for  find_ancestor_chain  is  important.  To  facilitate  the  search 
for  N's  ancestor  chain,  use  is  made  of  a  field  in  each  operator's  specification  part  named 
parent  of  type  psdl_component.  This  field  is  a  reference  to  the  operator's  immediate 
ancestor  composite  operator.  The  function  get_ancestor  returns  the  value  of  this  field  for 
a  given  operator. 
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function  find_ancestor_chain(N,  rootid:  psdlid;  P:  psdl_program)  return  extendedancestor; 

Input: 

N:  the  operator's  psdlid  name  for  which  the  chain  will  be  recovered; 
rootid:  the  root  operator's  psdlid  name  as  given  in  the  merged  prototype; 
P:  the  PSDL  prototype  from  which  N's  chain  will  be  recovered; 

Return  Value: 

N's  ancestor  chain  recovered  from  P  returned  in  type  extendedancestor; 

Figure  4.3:  Concrete  Interface  Specification  for  find_ancestor_chain 


Algorithm  find_ancestor_chain(N,  rootop:  psdlid;  P:  psdl_program) 
return  extendedancestor; 

ancestor:  extended_ancestor; 
ancestorid  :  psdl_id; 

Algorithm  recover_chain(ancestor:  extendedancestor;  operator_id, 

root_  id:  psdlid;  P:  psdl_program) 
return  psdl_id; 
begin 

If  operator  =  root_  id  then  —  unwind  the  recursion 

return  rootopid; 
else  —  continue  recursion 

ancestorid  :=  recover_chain(ancestor, 

get_ancestor(operator_id,  P),  rootid,  P); 
—  construct  ancestor  chain  as  recursion  unwinds 
append  ancestorid  to  ancestor  —  the  ancestor  chain; 
return  operatorid; 
endif; 
end  recoverchain; 

begin  —  find_ancestor_chain 

Initialize  ancestor  to  empty; 

if  N  is  not  the  root  operator  and  N  is  an  operator  in  P  then 

—  recursively  construct  N's  ancestor  chain 

ancestorid  :=  recover_chain(ancestor, 

get_ancestor(N,  P),  rootop,  P), 

append  ancestorid  to  ancestor  —  N's  recovered  ancestor  chain; 
endif; 

return  ancestor; 
end  findancestorchain; 

Figure  4.4:  Algorithm  Sketch  for  find_ancestor  chain 
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3.  Module:  mergeancestorchains 

merge_ancestor_chains  is  called  to  merge  the  ancestor  chains  recovered  from 
un-expanded  CHANGE  A,  BASE,  and  CHANGE  B  versions  of  the  prototype. 

The  algorithm  for  the  merge_ancestor_chains  function  applies  the  specific 
merge  rules:  (x[x]y  =  y  =  y[x]x),  (y[x]y  =  y),  and  (y[y]y  =  y)  first.  This  is  an  attempt  to 
optimize  the  merge  operation  by  handling  the  most  common  cases  without  having  to 
resort  to  more  involved  merge  processing  required  for  the  general  case. 

For  the  general  case,  pseudo-difference,  union,  and  intersection  operations  are 
needed  to  perform  the  merge.  Algorithms  for  these  operations  are  given  in  the 
extended_ancestor_pkg  section.  Processing  starts  with  taking  the  pseudo-difference  of 
CHANGE  A  and  the  BASE,  followed  by  the  intersection  operation  applied  to  CHANGE 
A  and  CHANGE  B,  followed  by  taking  the  pseudo-difference  of  CHANGE  B  and  the 
BASE.  The  terms  that  result  from  these  operations  are  then  combined  in  two  separate 
union  operations.  Merge  conflicts  are  indicated  by  a  null  extended_ancestor  returned 
from  the  union  operation.  If  conflict  occurs,  the  conflicting  chains  are  saved  as  an 
improper_ancestor  data  type.  Conflict  reporting  and  conflict  resolution  occur  in 
subsequent  processing. 

With  regard  to  merge  conflicts,  the  algorithm  for  merge_ancestor_chains  is 
based  on  the  following  observation:  [A pseudo-difference  Base]  union  [A  intersection  B] 
will  never  conflict  given  that  [A  intersection  B]  will  always  return  a  prefix  of  A  and  [A 
pseudo-difference  Base]  will  either  return  A  or  empty_ancestor.  The  union  of  A  with  a 
prefix  of  A  is  A.  The  union  of  emptyancestor  with  any  prefix  chain  is  the  prefix  chain. 
Thus,  [A  pseudo-difference  Base]  union  [A  intersection  B]  will  never  conflict.  This 
implies  that  conflicts  can  only  occur  in  the  second  union  operation  of  the  ancestor  chain 
merge. 
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procedure  merge_ancestor_chains(A_CHAIN,  BASECHAIN,  BCHAIN:  extended  ancestor; 

MERGE  CHAIN:  in  out  extendedancestor); 

Input: 

ACHAIN:  The  ancestor  chain  recovered  from  Change  A  prototype  version; 
BASECHAIN:  The  ancestor  chain  recovered  from  BASE  prototype  version; 
BCHAIN:  The  ancestor  chain  recovered  from  Change  B  prototype  version; 
Output: 

MERGECHAIN:  The  result  of  applying  the  merge  to  ACHAIN,  BASECHAIN,  and 
BCHAIN; 

Figure  4.5:  Concrete  Interface  Specification  for  merge_ancestor_chains 


Algorithm  merge_ancestor_chains(A_CHAIN,  BASECHAIN,  B  CHAIN: 

extendedancestor;  MERGECHAIN:  in  out  extendedancestor); 

a_pseudodiff_base,  aintersectionb,  b_pseudodiff_base:  extendedancestor; 
begin 

—  first  try  the  simple  cases 

if  ACHAIN  =  BASE_CHAIN  then 

MERGECHAIN  :=  build _proper_ancestor  (BCHAIN); 
else 

if  BCHAIN  =  BASECHAIN  then 

MERGECHAIN  :=  build_proper_ancestor  (A_CHAIN); 
else 

if  A_CHAIN  =  BCHAIN  then 

MERGECHAIN  :=  build_proper_ancestor  (BCHAIN); 
else  —  have  to  apply  the  merge  formula 

a_pseudodiff_base:=  pseudo_difference(A_CHAIN,  BASECHAIN); 
aintersectionb  :=  intersection(A_CHAlN,  BCHAIN); 
b_pseudodiff_base  :=  pseudo_difference(B_CHAIN,  BASE_CHAIN); 
unionterm  :=  union(a_pseudodiff_base,  b_pseudodiff_base); 
MERGECHAIN  :=  union(b_pseudodiff_base,  unionterm); 
if  MERGECHAIN  =  nullancestor  then  --  conflict 
MERGECHAIN  := 

build_improper_ancestor(A_CHAIN, 

BASECHAIN, 
B_CHAIN); 
endif; 
endif; 
endif; 
endif; 
end  mergeancestorchains; 

Figure  4.6:  Algorithm  Sketch  for  merge_ancestor_chains 
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4.  Module:  reportconflicts 

The  algorithm  for  the  report_conflicts  procedure  loops  through  the  array  of 
merged  ancestor  chains  and  outputs  informative  error  messages  for  any  conflicts  that 
occurred  during  ancestor  chain  merge. 

procedure  report_conflicts(ea_map:  ancestorchains); 

Input: 

ea_map:a  map  of  psdlid  operator  name  to  proper  and  improper  extended 
ancestors  -  the  ancestor  chains  resulting  from  the  merge  operations; 

Output: 

a  conflict  message  identifying  conflicting  terms  of  the  merge  operation; 

Figure  4.7:  Concrete  Interface  Specification  for  report_conflicts 


Algorithm  report_conflicts(ea_map:  ancestorchains); 
begin 

for  every  N  psdlid,  extended_ancestor  ea  in  eamap  loop 
if  ea  is  an  improper_ancestor  then 

put_conflict_message(N,  ea); 
endif; 
end  loop; 
end  reportconflicts; 

Figure  4.8:  Algorithm  Sketch  for  report_conflicts 
5.  Module:  resolveconflicts 

Conflicts  arise  when  the  union  operation  fails  during  the  merge_ancestor_chains 
operation.  This  failure  occurs  when  an  operator's  ancestor  chains  in  the  base  and  changed 
versions  cannot  be  merged  due  to  structural  conflicts.  For  example,  the  result  of  the 
ancestor  chain  merge  operation  incorrectly  requires  an  operator  to  have  more  than  one 
immediate  parent,  which  produces  an  improper  ancestor  lattice  element  [Ref.  1]. 
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This  improper  lattice  element  is  the  least  upper  bound  of  two  proper 
incomparable  elements  in  the  extended  ancestor  lattice  domain  and  represents  a  merge 
conflict  [Ref.  1].  The  merge  conflict  is  resolved  by  a  call  to 

extended_ancestor_pkg.resolve_conflict  which  replaces  this  improper  element  with  the 
greatest  lower  bound  of  the  conflicting  merge  terms. 


procedure  resolve_conflicts(ea_map:  in  out  ancestorchains); 

Input: 

eamap:  a  map  of  psdlid  operator  name  to  proper  and  improper  extended 
ancestors  -  the  ancestor  chains  resulting  from  the  merge  operations; 

Output: 

eamap:  a  map  psdlid  operator  name  to  proper  ancestor; 

Figure  4.9:  Concrete  Interface  Specification  for  resolve_conflicts 


Algorithm  resolve_conflicts(ea_map:  in  out  ancestorchains); 

scaneamap:  ancestor_chains; 
begin 

scaneamap  :=  Copy  of  ea_map; 

for  every  operator  id  and  extendedancestor  ea  in  scaneamap  loop 
if  ea  is  an  improperancestor  then 
ea  :=  resolveconflict(ea); 

update  the  eamap  entry  for  id  with  properancestor  ea; 
endif; 
end  loop; 
end  resolveconflicts; 

Figure  4.10:  Algorithm  Sketch  for  resolve_conflicts 
6.  Module:  reconstruct_prototype 

The  arguments  to  this  function  are  the  original  psdl_program's  for  the  base  and 
changed  versions  of  the  prototype,  the  psdl_program  map  for  the  merged  prototype,  and 
a  map  of  merged  ancestor  chains  (extended_ancestor_records),  one  map  entry  for  each 
component  in  the  merged  prototype's  psdl_program.  The  merged  prototype's 
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psdl_program  is  composed  of  one  root  composite  operator  entry  -  all  other  entries  are 
atomic  operators.  Given  this  as  input,  an  algorithm  for  reconstructjprototype  follows. 

The  first  section  of  the  algorithm  sets  an  access  type  to  MERGE's  root  operator 
component  and  associated  graph  and  then  creates  a  root  operator  for  NEW_PSDL  with 
the  name  of  MERGE's  root  operator. 

The  main  section  of  the  algorithm  is  a  loop  that  constructs  composite  operators  for 
each  element  in  each  atomic  operator's  recovered  merged  ancestor  chain,  builds  a  copy  of 
each  atomic  operator  and  binds  it  to  NEW_PSDL  (the  psdl_program  for  the 
reconstructed  prototype),  and  then  adds  each  atomic  operator's  attributes  and  properties  to 
its  parent  composite  operator.  When  this  main  section  loop  completes,  the  result  is  a 
partially  reconstructed  prototype  decomposition  structure  in  which  all  of  the  composite 
and  atomic  operators  are  in  correct  structural  context,  the  atomic  operators'  specification 
and  implementation  parts  are  complete,  but  the  composite  operators  have  incomplete 
specification  and  implementation  parts. 

The  last  section  of  the  algorithm  calls  a  recursive  procedure  to  finish  up  the 
composite  operators'  incomplete  specification  and  implementation  parts. 


function  reconstruct_prototype(MERGE,  A,  BASE,  B:  psdl_program, 

ANCESTORS:  ancestorchains)  return  psdl_program; 

Input: 

APSDL:  un-expanded  version  of  prototype  Change  A 

BASEPSDL:  un-expanded  version  of  prototype  BASE 

B  PSDL:  un-expanded  version  of  prototype  Change  B 

MERGE:  expanded  prototype  that  resulted  from  the  merge  of  flattened  versions  of 

Change  A,  BASE,  and  Change  B. 
ANCESTORS:  map  of  conflict-free  merged  ancestor  chains 

Returned  Value: 

Reconstructed  prototype  with  recovered  decomposition  structure  in  a  psdl_program 
data  structure. 

Figure  4.11:  Concrete  Interface  Specification  for  reconstruct_prototype 
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Algorithm  reconstruct_prototype(MERGE,  A,  BASE,  B:  psdl_program, 

ANCESTORS:  ancestorchains) 
return  psdl_program; 

NEWPSDL:  psdl_program; 

conode,  ancestornode,  newrootop,  mergesrootop:  compositeoperator; 

atomicop:  atomicoperator; 

rootid:  psdlid; 

chain:  psdlidsequence; 

mergesgraph,  ancestorgraph,  rootopgraph:  psdlgraph; 

rootopid,  op,  atomicopid:  opid; 

begin 


NEWPSDL  :=  empty_psdl_program; 

rootid  :=  MERGE's  root  operator  psdlid  name; 
mergesrootop  :=  MERGE's  root  operator  psdlcomponent; 
mergesgraph  :=  MERGE's  root  operator  psdlcomponent  graph; 
newrootop  :=  makecompositeoperator(rootid); 

bind  rootid,  newrootop  to  NEWPSDL; 

for  every  atomic_id:  psdlid,  and  ea:  extended_ancestor  in  ANCESTORS 
loop 

get  atomicid's  ancestor  chain  from  ea; 

ancestornode  :=  newrootop; 

for  every  chainelement  in  atomicid's  ancestor  chain  starting  with  root  element 
loop 

if  the  composite  operator  for  chainelement  is  already  in  NEWPDSL  then 

conode  :=  chainelement's  component  from  NEWPSDL; 
else 

conode  :=  makecompositeoperator(chainelement); 
set  conode's  parent  to  ancestornode; 

—  add  partial  vertex  definition  for  composite  operator 

—  to  the  parent  graph  and  try  to  retrieve  vertex  attributes 

—  from  A,  BASE,  B  entries  for  the  composite, 
op  :=  opid  identifier  for  conode; 
add_composite_vertex(op,  ancestornode,  A,  BASE,  B); 

bind  chainelement,  conode  to  NEWPSDL; 
endif; 

set  ancestornode  to  conode  for  next  iteration; 
endloop; 

Figure  4.12:  Algorithm  Sketch  for  reconstruct_prototype 
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atomicop  :=  make_atomic_operator(atomic_id's  component  from  MERGE); 
set  atomicop's  parent  to  ancestornode; 
atomicopid  :=  opid  identifier  for  atomicop; 
ancestorgraph  :=  copy  of  ancestornode's  graph; 

—  Call  copyvertexnedges  to  copy  atomic_op_id's  vertex  &  edges  in  mergesgraph  to 
~  ancestor_graph; 

copy_vertex_n_edges(atomic_op_id,  mergesgraph,  ancestorgraph); 

—  Call  copytimeroperations  to  copy  atomicopid's  timeroperation  entries  in 

—  mergesrootop  to  ancestor_node; 
copy_timer_operations(atomic_op_id,  merges_root_op,  ancestor_node); 

—  Call  copy_control_constraints  to  copy  atomicopid's  control  constrarnt  (output 

—  guards,  exception  triggers,  execution  guards,  and  triggers)  entries 

—  in  mergesrootop  to  ancestornode; 
copy_control_constraints(atomic_op_id,  merges_graph, 

merges_root_op,  ancestornode); 

—  Call  copy_timing_constraints  to  copy  atomic_op_id's  timing  constraints  (periods, 

—  finished  within's,  minimum  calling  periods,  and  maximum  response  times) 

—  entries  in  mergesrootop  to  ancestornode; 
copy_timing_constraints(atomic_op_id,  merges_root_op,  ancestor_node); 

bind  atomicid,  atomicop  to  NEWPSDL; 

endloop; 


—  At  this  point,  a  skeletal  decomposition  structure  is  in  place  -  all  of  the  composite  operators  are  in  place 
~  with  partially  completed  specification  and  implementation  portions. 

—  Next,  finish  up  construction  of  the  each  composite  operator  in  NEW_PSDL;  input  edges,  output  edges, 

—  state  edges,  [smet's,  exceptions,]  initial  states,  and  other  attributes  will  have  to  be  set  in  each  composite 

—  operator's  specification  and  implementation  part. 

—  Starting  with  the  root  operator,  call  finish_composite_operator_construction  to 

—  recurse  through  composite  operator  graphs  to  finish  reconstruction  of  each  composite  operator's 

—  specification  and  implementation  parts 

finish_composite_operator_construction(graph(new_root_op),  A,  BASE,  B, 

NEWPSDL,  newrootop,  newrootop); 

return  NEW_PSDL; 
end  reconstruct_prototype; 

Figure  4.13:  Algorithm  Sketch  for  reconstruct_prototype  (cont.) 
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B.       DESIGN:  ADA  PACKAGE  EXTENDED  ANCESTOR_PKG 

Package  extendedancestorjpkg  provides  type  extendedancestor,  the  basic 
manipulation  functions  for  this  type,  and  the  union,  intersection,  pseudo-difference 
operations  used  in  the  ancestor  chain  merge  operation  (merge_ancsetor_chains). 

In  the  descriptions  which  follow,  the  designs  of  most  of  the  functions  and 
procedures  that  make  up  the  public  interface  to  this  package  are  described  in  detail.  The 
designs  of  some  of  the  more  interesting  local  support  functions  and  procedures  are 
described  in  detail  as  well.  But,  for  most  of  the  trivial  support  functions  and  procedures,  a 
brief  statement  of  purpose  is  given  followed  by  a  Concrete  Interface  Specification. 

1.  Type  Extended  Ancestor 

Type  extended  ancestor  is  designed  as  an  Ada  private  type.  It  is  essentially  a  data 
structure  used  to  store  proper  and  improper  ancestor  chain  sequences.  Ancestor  chain 
sequences  are  ordered  sequences  of  PSDL  composite  operator  names.  The  first  element  in 
the  chain  is  the  name  of  a  prototype's  root  operator.  Each  subsequent  element  in  the  chain 
is  the  child  of  its  immediate  predecessor,  and  the  last  element  is  the  name  of  an  atomic 
operator'  immediate  parent  composite  operator. 

A  proper  ancestor  is  an  element  of  the  set  of  all  finite  sequences  partially  ordered 
by  the  prefix  ordering  [Ref.  1].  In  the  following  design,  proper_ancestor  is  an  access 
type  for  an  extendedancestorrecord  with  discriminant  ancestor  =>  proper.  This 
subtype  is  used  to  store  an  atomic  operator's  properly  formed  ancestor  chain  as  a 
sequence  of  psdlid  names  of  composite  operators. 

An  improper  ancestor  is  an  improper  data  element  representing  a  least  upper 
bound  for  a  set  of  incomparable  proper  elements  in  the  extended  ancestor  lattice  [Ref.  1]. 
In  the  following  design,  improper_ancestor  is  a  pointer  to  an 
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extendedancestorrecord  with  discriminant  ancestor  =>  improper.  This  subtype  is 
used  to  store  conflicting  proper  ancestor  chains  for  subsequent  conflict  reporting  and 
resolution. 


—  Discriminant  for  type  extendedancestorrecord 
type  ancestortype  is  (proper,  improper); 

—  storage  for  both  "proper"  and  "improper"  ancestor  chains, 
type  extended_ancestor_record 

(ancestor:  ancestor_type) 

is  private; 

type  extendedancestor  is  access  extendedancestorrecord; 
subtype  proper_ancestor  is  extended_ancestor(ancestor  =>  proper); 
subtype  improper_ancestor  is  extended_ancestor(ancestor  =>improper); 
nullancestor:  constant  extendedancestor  :=  null; 
empty_extended_ancestor:  extendedancestor; 

—  raised  when  nullancestor  is  unexpectedly  encountered. 
undefinedancestor:  exception; 

—  raised  when  an  undefined  ancestor  chain  is  unexpectedly  encountered. 
undefined_ancestor_chain:  exception; 

—  raised  when  comparison  of  an  improper-to-proper  ancestor  is  unexpectedly 

—  attempted 
ancestortypemismatch:  exception; 

Figure  4.14  :Concrete  Interface  Specification  for  Type  Extended  Ancestor 
2.  Module:  greatest_common_prefix 

Function  greatest_common_prefix  finds  and  returns  the  greatest  common  prefix 
{greatest  lower  bound)  of  two  proper  ancestor  chain  sequences.  It  is  a  local  support 
function,  but  it  is  described  in  detail  here  to  afford  the  reader  a  better  understanding  of  the 
intersection,  putconflictmessage,  and  resolveconflict  functions. 
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function  greatest_common_prefix(chain_l,  chain_2:  psdlidsequence)  return  psdlidsequence; 

Input: 

chainl :  psdlidsequence  representing  an  ancestor  chain 
chain_2:  psdlidsequence  representing  an  ancestor  chain 

Return  Value: 

The  greatest  common  prefix  or  chain_l  and  chain_2  returned  in  a  psdl_id_sequence  data  structure 

Figure  4.15:  Concrete  Interface  Specification  for  greatest_common_prefix 


Algorithm  greatest_common_prefix(chain_l,  chain  2:  psdlidsequence) 
return  psdlidsequence; 

comparelimit:  natural; 

result:  psdl_id_sequence; 

I:  natural  :=  1; 

elementsmatch:  Boolean  :=  True; 


begin 


Initialize  the  return  sequence  "result"  to  empty; 


—  Find  and  set  the  range  for  chain  element  comparison; 

if  the  length  of  chainl  is  greater  than  the  length  of  chain_2  then 

comparelimit  :=  length  of  chain_2; 
else 

comparelimit  :=  length  of  chainl; 
endif; 

—  extract  the  greatest  common  prefix  and  store  it  in  "result" 

while  I  is  less  than  or  equal  to  comparelimit  and  elementsmatch  loop 
ifchainl  element  I  equals  chain_2  element  I  then 
add  the  element  to  the  result  sequence; 
I  :=I+  1; 
else 

elementsmatch  :=  False; 
end  if; 
end  loop; 
return  result; 
end  greatest_common_prefix; 

Figure  4.16:  Algorithm  Sketch  for  greatest_common_prefix 
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3.  Module:  is_prefix_of 

This  is  a  local  overloaded  function  used  to  determine  if  the  first 
extendedancestor  argument  is  a  prefix  of  the  second  (or  if  the  first  ancestor  chain 
sequence  argument  is  a  prefix  of  the  second).  An  ancestor  chain  sequence  AC1  of  length 
LI  is  a  prefix  of  ancestor  chain  sequence  AC2  of  length  L2  if  each  element  of  AC1, 
beginning  with  the  first  element  up  to  and  including  element  LI,  matches  each 
corresponding  element  of  AC2,  beginning  with  the  first  element  up  to  and  including 
element  LI  of  AC2. 

Although  is_prefix_of  is  a  local  support  function,  it  is  described  in  detail  here  to 
afford  the  reader  a  better  understanding  of  the  intersection,  union,  pseudo_difference, 
putconflictmessage,  and  resolveconflict  functions. 


function  is_prefix_of(chain_l,  cham_2:  psdlidsequence)  return  boolean; 

Input: 

chainl:  psdl_id_sequence  of  operator  names  representing  an  ancestor  chain 
chain_2:  psdl_id_sequence  of  operator  names  representing  an  ancestor  chain 

Return  value: 

Boolean  True  if  chainl  is  a  prefix  of  chain_2,  Boolean  False  otherwise 

function  is_prefix_of(ea_l,  ea_2:  extendedancestor)  return  boolean; 

Input: 

ea_l:  extendedancestor  access  type  for  a  proper  ancestor 
ea_2:  extended_ancestor  access  type  for  a  proper  ancestor 

Return  value: 

Boolean  True  if  eal  is  a  prefix  of  ea_2,  Boolean  False  otherwise 

Figure  4.17:  Concrete  Interface  Specification  for  is_prefix_of  (overloaded) 
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function  is_prefix_of(chain_l,  chain_2:  psdlidsequence) 
return  boolean; 

is_prefix:  Boolean  :=  False; 
begin 

if  length  of  chainl  is  greater  than  length  of  chain_2  then  —  can't  be  prefix  of  shorter  chain 

is_prefix  :=  False; 
else 

gets  the  prefix  slice  of  chain_2  from  the  first  element  to  the  length  of  chainl; 

if  chainl  equals  prefix  slice  of  chain_2  then 

is_prefix  :=  True; 
else 

is_prefix  :=  False; 
end  if; 
end  if; 

return  is_prefix; 

end  is_prefix_of; 

function  is_prefix_of(ea_l,  ea_2:  extendedancestor) 
return  boolean 

return  (is_prefix_of(ea_l. chain,  ea_2. chain)); 
end  is_prefix_of; 

Figure  4.18:  Algorithm  Sketch  for  is_prefix_of  (overloaded) 


4.  Module:  intersection 

This  overloaded  function  has  both  a  public  and  local  version.  The  public  version 
function  performs  the  intersection  operation  on  two  arguments  of  type 
extendedancestor.  The  local  version  performs  the  intersection  operation  on  to 
arguments  of  type  psdl_id_sequence.  Both  versions  return  the  greatest  common  prefix 
for  two  supplied  arguments. 

The  domain  of  the  operation  is  the  extended  ancestor  lattice.  In  this  extended 
domain,  the  intersection  operation  is  essentially  the  set  intersection  operation  [Ref.  1]. 
The  general  rule  for  the  intersection  operation  in  the  extended  ancestor  lattice  domain  is: 


38 


EA1,  EA2:  extendedancestor; 
if  EA1  is  a  prefix  of  EA2  then 

intersection(EAl,  EA2)  =  EA1; 
else 

if  EA2  is  a  prefix  of  EA1  then 

intersection(EAl,  EA2)  =  EA2; 

else 

intersection(EAl,  EA2)  =  greatest_common_prefix(EAl,  EA2); 

endif; 
endif; 


This  rule  applies  to  psdl_id_sequences  ancestor  chain  sequences  as  well. 

The  following  algorithms  for  intersection  first  check  to  see  whether  one  of  the 
extended_ancestor  (or  psdl_id_sequence  ancestor  chain)  arguments  is  a  prefix  of  the 
other,  and  if  so,  return  a  copy  of  the  prefix  argument.  Otherwise,  the  algorithms  find  and 
return  the  greatest  common  prefix  of  the  two  arguments. 


function  intersection(ea_l,  ea_2:  extendedancestor)  return  extended  ancestor; 

Input: 

eal :  extendedancestor  access  type  for  a  proper  ancestor 
ea_2:  extended_ancestor  access  type  for  a  proper  ancestor 

Return  Value: 

extended_ancestor  access  type  for  result  of  the  intersection  operation  applied  to  ea_l  and  ea_2 

function  intersection(chain_l,  chain_2:  psdl_id_sequence)  return  psdlidsequence; 

Input: 

cham_  1 :  psdlidsequence  of  operator  names  representing  an  ancestor  chain 
chain  2:  psdlidsequence  of  operator  names  representing  an  ancestor  chain 

Return  Value: 

The  result  of  the  intersection  operation  applied  to  chainl  and  chain_2  in  a  psdl_id_sequence  of 
operator  names  representing  an  ancestor  chain 

Figure  4.19:  Concrete  Interface  Specification  for  intersection  (overloaded) 
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Algorithm  intersection(ea  1,  ea_2:  extended  ancestor) 
return  extendedancestor; 

result:  extendedancestor; 
begin 

if  is_prefix_of(ea_l,  ea_2)  then 

result  :=  build_proper_ancestor(  eal. chain); 
else 

if  is_prefix_of  (ea_2,  eal)  then 

result  :=  build_proper_ancestor(  ea_2. chain); 
else 

result  :=  build_proper_ancestor( 

greatest_common_prefix  (ea_2. chain,  eal. chain)); 
endif; 
endif; 

return  result; 
end  intersection; 

Algorithm  intersection(chain_l,  chain_2:  psdlidsequence) 
return  psdlidsequence; 

result:  psdlidsequence; 
begin 

if  is_prefix_of(chain_l,  chain_2)  then 

result  :=  chain_l; 
else 

if  is_prefix_of  (chain_2,  chain_l)  then 

result  :=  chain_2; 
else 

result  :=  greatest_common_prefix  (chain_2,  chainl); 
endif; 
endif; 

return  result; 
end  intersection; 

Figure  4.20:  Algorithm  Sketch  for  intersection  (overloaded) 
5.  Module:  pseudodifference 


This  overloaded  function  has  both  a  public  and  local  version.  The  public  version 
performs  the  Brouwerian  Algebra  pseu do- difference  operation  on  two  arguments  of  type 
extended_ancestor.  The  local  version  performs  the  Brouwerian  Algebra  pseudo- 
difference  operation  on  to  arguments  of  type  psdl_id_sequence.  Both  versions  return  the 
pseudo-difference  of  the  two  supplied  arguments. 
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The  Brouwerian  Algebra  pseudo-difference  applied  to  a  pair  of 
extended_ancestor  (or  psdl_id_sequence  )  arguments  is  essentially  a  set  difference 
followed  by  a  downward  closure  operation  applied  to  the  result.  [Ref.  1] 

The  general  rule  for  this  operation  in  the  extended  ancestor  lattice  domain  is: 

if  EA1  is  a  prefix  of  EA2  then 

pseudo_difference(EAl,  EA2)  =  emptyextendedancestor; 
else 

pseudo_difference(EAl,  EA2)  =  EA1; 
endif; 

This  rule  applies  to  psdl_id_sequences  ancestor  chain  sequences  as  well. 

The  following  algorithm  for  function  pseudo_difference  first  checks  to  see 
whether  the  first  argument  is  a  prefix  of  the  other,  and  if  so,  returns  an  empty 
extended_ancestor.  Otherwise,  the  algorithm  returns  the  first  argument. 


function  pseudo_difference(ea_l,  ea_2:  extendedancestor)  return  extendedancestor; 

Input: 

ea_l:  extendedancestor  access  type  for  a  proper  ancestor 
ea_2:  extendedancestor  access  type  for  a  proper  ancestor 

Return  Value: 

extendedancestor  access  type  for  result  of  the  pseudo-difference  operation  applied  to  eal  and 
ea_2 

function  pseudo_difference(chain_l,  chain_2:  psdlidsequence)  return  psdlidsequence; 

Input: 

chainl:  psdlidsequence  of  operator  names  representing  an  ancestor  chain 
chain_2:  psdlidsequence  of  operator  names  representing  an  ancestor  chain 

Return  Value: 

The  result  of  the  pseudo-difference  operation  applied  to  chainl  and  chain_2  in  a 
psdlidsequence  of  operator  names  representing  an  ancestor  chain 

Figure  4.21:  Concrete  Interface  Specification  for  pseudo_difference 
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Algorithm  pseudo_difference(ea_l,  ea_2:  extendedancestor) 

return  extendedancestor; 

begin 

if  is_prefix_of(ea_l,  ea_2)  then 

return  an  empty  extendedancestor; 
else 

return  a  copy  of  eal; 
endif; 
end  pseudodifference; 


Algorithm  pseudo_difference(chain  1,  chain_2:  psdlidsequence) 

return  psdl_id_sequence; 

begin 

if  is_prefix_of(chain_l,  chain_2)  then 

return  an  empty  psdl_id_sequence; 
else 

return  a  copy  of  chainl ; 
endif; 
end  pseudodifference; 


Figure  4.22:  Algorithm  Sketch  for  pseudo_difference 

6.  Module:  union 

This  overloaded  module  has  both  a  public  and  local  version.  The  public  version 
function  performs  the  union  operation  on  two  arguments  of  type  extended_ancestor.  The 
local  version  procedure  performs  the  union  operation  on  to  arguments  of  type 
psdl_id_sequence.  Both  versions  return  the  result  of  the  union  operation  as  applied  to  the 
two  supplied  arguments. 
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The  union  operation  forms  the  least  upper  bound  for  two  extended_ancestor  (or 
two  psdl_id_sequence  ancestor  chain)  arguments  in  the  extended  ancestor  lattice 
domain.  The  general  rule  for  this  operation  in  this  domain  is: 

EA1,  EA2:  extendedancestor; 
if  EA1  is  a  prefix  of  EA2  then 

union(EAl,  EA2)  =  EA2; 
else 

CONFLICT  -  UNDEFINED; 
endif; 

This  rule  applies  to  psdl_id_sequences  ancestor  chain  sequences  as  well. 

The  following  algorithm  implements  the  above  general  rule.  It  first  checks  for 
empty  extended_ancestor  arguments  and  attempts  to  return  a  non-empty 
extended_ancestor.  If  both  of  the  extended_ancestor  arguments  are  empty,  then  an 
empty  extended_ancestor  is  returned.  If  the  extendedancestor  arguments  are  non- 
empty, the  algorithm  checks  to  see  whether  one  argument  is  a  prefix  of  the  other,  and  if 
so,  returns  the  other  argument.  In  the  cases  mentioned  so  far,  the  union  operation  is 
successful,  and  the  returned  extended_ancestor  is  either  empty  or  non-empty. 

The  remaining  case  is  the  conflict  case  -  the  algorithm  is  unable  to  form  an  union 
and  will  return  a  null  extended_ancestor  indicating  an  undefined  result.  In  the  context  of 
ancestor  chain  merge  operations,  an  undefined  result  for  an  union  operation  signals  a 
merge  conflict. 
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function  union(ea_l,  ea_2:  extendedancestor)  return  extendedancestor; 

Input: 

eal:  extendedancestor  access  type  for  a  proper  ancestor 
ea_2:  extendedancestor  access  type  for  a  proper  ancestor 

Return  Value: 

extendedancestor  access  type  for  result  of  the  union  operation  applied  to 
eal  and  ea_2 

procedure  union(chain_l,  chain_2:  psdlidsequence; 

result:  in  out  psdlidsequence; 
conflict:  in  out  Boolean); 

Input: 

chainl:  psdlidsequence  of  operator  names  representing  an  ancestor  chain 
chain_2:  psdlidsequence  of  operator  names  representing  an  ancestor  chain 
result:  empty  psdl_id_sequence  used  to  return  result  of  union  operation 
conflict:  Boolean  variable  used  to  signal  conflict 

Output: 

result:  psdlidsequence  containing  result  of  union  operation  as  applied  to  chainl  and 

chain_2 
conflict:  Boolean  variable  set  to  True  of  conflict  occurred,  False  otherwise 

Figure  4.23:  Concrete  Interface  Specification  for  union  (overloaded) 
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Algorithm  union(ea_l,  ea_2:  extendedancestor)  return  extendedancestor; 

result:  extendedancestor; 
begin 

if  eal  is  an  empty  extended_ancestor  then 

result  :=  copyofea_2; 
else         if  ea_2  is  an  empty  extended_ancestor  then 
result  :=  copy  of  eal; 
else         if  is_prefix_of  (eal,  ea_2)  then 
result  :=  copy  of  ea_2; 
else         if  is_prefix_of(ea_2,  ea_l)then 
result  :=  copy  of  ea_l; 
else  —  can't  form  a  union 

result  :=  nullancestor; 
endif; 
endif; 
endif; 
endif; 

return  result; 

end  union; 

Algorithm  union(chain_l,  chain_2:  psdlidsequence; 
result:  in  out  psdl  idsequence; 
conflict:  in  out  Boolean); 
begin 

conflict  :=  False; 

if  is_prefix_of  (chainl,  chain_2)  then 

result  :=  copy  of  chain_2; 
else 

if  is_prefix_of(chain_2,  chainl)  then 

result  :=  copy  of  chainl; 
else  —  can't  form  a  union 
conflict  :=  True; 
endif; 
endif; 
end  union; 

Figure  4.24:  Algorithm  Sketch  for  union  (overloaded) 
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7.  Module:  resolveconflict 

This  function  takes  an  improper_ancestor  resulting  from  a  merge  conflict  as 
input,  reconstructs  the  merge  conflict,  resolves  the  conflict,  and  returns  the  conflict-free 
result  in  a  newly  constructed  proper_ancestor. 

The  algorithm  for  resolve_conflict  is  based  on  the  following  observation:  [A 
pseudo-difference  Base]  union  [A  intersection  B]  will  never  conflict  given  that  [A 
intersection  B]  will  always  return  a  prefix  of  A  and  [A  pseudo-difference  Base]  will 
either  return  A  or  emptyancestor.  The  union  of  A  with  a  prefix  of  A  is  A.  The  union  of 
empty_ancestor  with  any  prefix  chain  is  the  prefix  chain.  Thus,  [A  pseudo-difference 
Base]  union  [A  intersection  B]  will  never  conflict. 

This  implies  that  conflicts  will  only  occur  in  the  second  union  operation  of  the 
ancestor  chain  merge. 


function  resolve_conflict(ia:  improperancestor)  return  properancestor; 

Input: 

ia:  improperancestor  resulting  from  a  merge  conflict; 

Return  Value: 

properancestor  with  ancestor  chain  that  resulted  from  conflict  resolution 

Figure  4.25:  Concrete  Interface  Specification  for  resolve_conflict 
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Algorithm  resolve_conflict(ia:  improperancestor)  return  properancestor; 
gcp,  unionterm,  a_pseudodiff_base, 
a_intersection_b,  b_pseudodiff_base:  psdl_id_sequence; 


resolvedchain:  proper_ancestor; 


begin 


—  reconstruct  the  3  terms  from  the  conflicting  merge 
a_pseudodiff_base  :=  pseudo_difference(ia.chain_A,  ia.chainBASE); 
aintersectionb  :=  intersection(ia.chain_A,  ia.chainB); 
b_pseudodiff_base  :=  pseudo_difference(ia.chain_B,  ia.chainBASE); 

—  rebuild  a_pseudodiff_base  U  a_intersection_b  term 
umon(a_pseudodiff_base,  a_intersection_b,  unionterm,  conflict); 

—  find  the  proper  common  prefix  of  the  2  conflicting  terms 

—  unionterm  U  b_pseudodiff_base 

gcp  :=  greatest_common_prefix(union_term,  b_pseudodiff_base); 

resolvedchain  :=  build_proper_ancestor(gcp); 
return  resolved_chain; 
end  resoIve_conflict; 

Figure  4.26:  Algorithm  Sketch  for  resolve_conflict 
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8.  Module:  putconflictmessage 

Procedure  putconflictmessage  takes  an  improperancestor  as  input, 
reconstructs  the  merge  conflict,  and  outputs  an  informative  message  detailing  the  conflict 
in  reasonable  depth. 

The  same  observation  given  in  the  Algorithm  Sketch  for  Module  resolve_conflict 
applies  to  the  algorithm  for  put_conflict_message.  Refer  to  the  Algorithm  Sketch  for 
Module  resolve  conflict  for  detail. 


procedure  put_confIict_message(N:  psdlid;  ia:  improperancestor); 

Input: 

N:  the  psdlid  name  for  the  atomic  operator  whose  improper  ancestor  chain  is 

represented  by  the  next  argument 
a:  N's  improper  ancestor  chain 
Output: 

informative  message  detailing  merge  conflict 

Figure  4.27:  Concrete  Interface  Specification  for  put_conflict_message 
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Algorithm  put_conflict_message(N:  psdlid;  ia:  improperancestor); 
gcp,  unionterm,  union_term_imp,a_pseudodiff_base, 
aintersectionb,  b_pseudodiff_base,  b_pseudodiff_base_imp:  psdl_id_sequence; 

gcplen:  natural  :=  0; 

conflict:  Boolean  :=  False; 
begin 

—  reconstruct  the  3  terms  for  the  conflicting  merge 
a_pseudodiff_base  :=  pseudo_difference(ia.chain_A,  ia.chain_BASE); 
a_intersection_b  :=  intersection(ia.chain_A,  ia.chain_B); 
b_pseudodiff_base  :=  pseudo_difference(ia.chain_B,  ia.chainBASE); 

—  rebuild  a_pseudodiff_base  U  a_intersection_b  term 
union(a_pseudodiff_base,  a_intersection_b,  union_term,  conflict); 

—  find  the  proper  common  prefix  of  the  2  conflicting  terms 

—  unionterm  U  b_pseudodiff_base 

gcp  :=  greatest_common_prefix(union_term,  b_pseudodiff_base); 

—  find  the  improper  elements  of  the  2  conflicting  terms 
uniontermconflictslice  :=  unionterm  -gcp 
b_pseudodiff_base_conflict_slice  :=  b_pseudodiff_base  -  gcp; 

put("ONE  OR  MORE  CONFLICTS  IN  ANCESTOR  CHAIN  RECOVERY  FOR:  "); 

put_line(convert(N)); 

put("<");  put_chain(ia.chain_A,  False);  put_line(">"); 

put("[<");  put_chain(ia.chain_BASE,  False);  put_line(">]"); 

put("<");  put_chain(ia.chain_b,  False);  put_line(">  ="); 

put("<");  put_chain(union_term,  False); 

put_line(">  U  "); 

put("<");  put_chain(b_pseudodiff_base,  False); 

put_line(">="); 

put_line("(***conflict***)="); 

put("<");  put_chain(gcp,  False); 

put("(");Put_chain(union_term_imp,  False); 

put("  U  "); 

put_chain(b_pseudodiff_base_imp,  False);  put_line(")>"); 

putjine(""); 

end  putconflictmessage; 

Figure  4.28:  Algorithm  Sketch  for  put_conflict_message 
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9.  Support  Functions  and  Procedures  for  extended_ancestor_pkg 

The  modules  described  below  are  sufficiently  trivial  as  not  to  warrant  detailed 
description.  Refer  to  the  source  listings  for  Package  extended_ancestor_pkg  in 
Appendix  A  for  detail. 


Module  type  ofancestor 

Purpose: 

returns  an  extendedancestor's  discriminant:  "proper"  or  "improper" 

Concrete  Interface  Specification: 

function  type_of_ancestor(ea:  extendedancestor)  return  ancestor  type; 

Module  empty_ancestor 

Purpose: 

returns  a  proper  ancestor  with  an  empty  ancestor  chain 

Concrete  Interface  Specification: 

function  emptyancestor  return  properancestor; 

Module  appendancestor 

Purpose: 

appends  a  operator's  psdlid  name  to  an  extendedancestor's  ancestor  chain 

Concrete  Interface  Specification: 

procedure  append_ancestor(ea:  in  out  extendedancestor;  ancestorid:  psdlid); 

Module  assignchain 

Purpose: 

assigns  properancestor  ea_2,s  ancestor  chain  to  properancestor  ea_l;  recycles 
ea_2's  existing  ancestor  chain  prior  to  new  assignment. 

Concrete  Interface  Specification: 

procedure  assign_chain(ea_l:  in  out  properancestor;  ea_2:  properancestor); 

Module  assignchain 

Purpose: 

assigns  psdlidsequence  chain  as  properancestor  ea\  ancestor  chain; 
recycles  ea's  existing  ancestor  chain  prior  to  new  assignment. 

Concrete  Interface  Specification: 

procedure  assign_chain(ea:  in  out  properancestor;  chain:  psdlidsequence); 

Figure  4.29:  Support  Functions  and  Procedures  for  extended_ancestor_pkg 
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Module  buildproperancestor 

Purpose: 

returns  a  proper  ancestor  initialized  to  the  supplied  ancestor  chain  sequence 

Concrete  Interface  Specification: 

function  build_proper_ancestor(ea_chain:  psdlidsequence)  return  properancestor; 

Module  build  improperancestor 

Purpose: 

returns  an  improper  ancestor  initialized  to  the  supplied  ancestor  chain  sequences 

Concrete  Interface  Specification: 

function  build_improper_ancestor(a_chain,  basechain,  bchain: 

psdlidsequence)  return  improperancestor; 

Module  eq 

Purpose: 

determines  equality  for  both  proper_ancestor's  and  improper_ancestor's 

Concrete  Interface  Specification: 

function  eq(ea_l,  ea_2:  extendedancestor)  return  boolean; 

Module  recycle_extended_ancestor 

Purpose: 

recycle  storage  for  proper  or  improper  extendedancestorrecords 

Concrete  Interface  Specification: 

procedure  recycle_extended_ancestor(ea:  in  out  extendedancestor); 

Module  getancestor 

Purpose: 

get  the  psdlid  identifier  of  a  component's  ancestor 

Concrete  Interface  Specification: 

function  get_ancestor(id:  psdlid;  p:  psdl_program)  return  psdl_id; 

Module  getchain 

Purpose: 

return  a  proper  ancestor's  psdlidsequence  ancestor  chain 

Concrete  Interface  Specification: 

function  get_chain(ea:  extendedancestor)  return  psdlidsequence; 

Figure  4.30:  Support  Functions  and  Procedures  for  extended_ancestor_pkg  (cont.) 
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C.       DESIGN:  ADA  PACKAGE 

RECONSTRUCT  PROTOTYPE  UTILITIES  PKG 


The  reconstruct_prototype_utilities_pkg  package  provides  the  utility  functions 
and  procedures  used  by  decompose_graph_pkg  function  reconstruct_prototype  to 

reconstruct  a  PSDL  prototype's  decomposition  structure. 

A  number  of  modules  in  this  package  were  taken  from  [Ref.  2].  For  these 
modules,  a  brief  statement  of  purpose  and  Concrete  Interface  Specification  is  given.  In 
cases  where  these  modules  have  been  altered,  the  alteration  is  noted  and  briefly 
explained. 

1.  Module:  mergeoutputstreamtypenames 

This  procedure  merges  output  stream  type  names  recovered  from  original 
CHANGE  A,  BASE,  and  CHANGE  B  prototype  composite  operators  for  use  in  the 
post-merge  reconstruction  of  new  composite  operators  during  decomposition  recovery.  It 
is  necessary  to  go  the  original  CHANGE  A,  BASE,  and  CHANGE  B  prototypes  to  get 
the  output  stream  type  names  given  that  they  are  lost  in  the  pre-merge  flattening  process, 
and  thus  are  absent  from  the  flattened  merged  prototype. 


procedure  merge_output_stream_type_names(merged_type  name:  in  out  typename; 

id,  streamname:  psdlid; 

A,  BASE,  B:  psdl__program); 
Input: 

mergedtypename:  used  to  return  the  merged  typename 
id:  psdl_id  name  of  composite  operator  for  which  merge  will  be  accomplished 
streamname:  the  name  of  the  output  stream  for  which  the  typename  will  be  merged 
A:  pre-merge  version  of  Change  A  prototype 
BASE:  pre-merge  version  of  BASE  prototype 
B:  pre-merge  version  of  Change  B  prototype 
Output: 

merged_type_name:  merged  type_name  for  output  stream 

Figure  4.31:  Concrete  Interface  Specification  for  merge_output_stream_type_names 
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Algorithm  merge_output_strearn_type_names(merged_type_name:  in  out  typename; 

id,  streamname:  psdlid; 
A,  BASE,  B:  psdl_program); 


begin 


aname,  base_name,  b_name:  type_name  :=  null_type; 
op:  compositeoperator; 

if  operator  "id"  is  a  member  of  prototype  A  then 

fetch  operator  "id"  from  prototype  A; 

if  "streamname"  is  an  output  stream  for  operator  "id"  then 
a_name  :=  typename  of  "stream_name"; 

endif; 
endif; 

if  operator  "id"  is  a  member  of  prototype  BASE  then 

fetch  operator  "id"  from  prototype  BASE; 

if  "stream_name"  is  an  output  stream  for  operator  "id"  then 
basename  :=  typename  of  "streamname"; 

endif; 
endif; 

if  operator  "id"  is  a  member  of  prototype  B  then 

fetch  operator  "id"  from  prototype  B; 

if  "streamname"  is  an  output  stream  for  operator  "id"  then 
bname  :=  typename  of  "streamname"; 

endif; 
endif; 

mergedtypename  :=  merge_types(base_name,  a_name,  b_name); 

end  mergeoutputstreamtypenames; 

Figure  4.32:  Algorithm  Sketch  for  merge_output_stream_type_names 

2.  Module:  mergeinputstreamtypenames 

This  procedure  merges  input  stream  type  names  recovered  from  original 
CHANGE  A,  BASE,  and  CHANGE  B  prototype  composite  operators  for  use  in  the 
post-merge  reconstruction  of  new  composite  operators  during  decomposition  recovery.  It 
is  necessary  to  go  the  original  CHANGE  A,  BASE,  and  CHANGE  B  prototypes  to  get 
the  input  stream  type  names  given  that  they  are  lost  in  the  pre-merge  flattening  process, 
and  thus  are  absent  from  the  flattened  merged  prototype. 
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Output: 


procedure  merge_input_stream_type_names(merged  typename:  in  out  typename; 

id,  streamname:  psdlid; 

A,  BASE,  B:  psdljprogram); 
Input: 

mergedtypename:  used  to  return  the  merged  typename 

id:  psdlid  name  of  composite  operator  for  which  merge  will  be  accomplished 

streamname:  the  name  of  the  input  stream  for  which  the  typename  will  be  merged 

A:  pre-merge  version  of  Change  A  prototype 

BASE:  pre-merge  version  of  BASE  prototype 

B:  pre-merge  version  of  Change  B  prototype 

merged_type_name:  merged  type_name  for  input  stream 
Figure  4.33:  Concrete  Interface  Specification  for  merge_input_stream_type_names 


Algorithm  merge_input_stream_type_names(merged_type_name:  in  out  typename; 

id,  streamname:  psdlid; 
A,  BASE,  B:  psdl_program); 
aname,  basename,  bname:  typename  :=  nulltype; 
op:  compositeoperator; 
begin 

if  operator  "id"  is  a  member  of  prototype  A  then 

fetch  operator  "id"  from  prototype  A; 

if  "streamname"  is  an  input  stream  for  operator  "id"  then 
aname  :=  typename  of  "streamname"; 

endif; 
endif; 

if  operator  "id"  is  a  member  of  prototype  BASE  then 

fetch  operator  "id"  from  prototype  BASE; 

if  "streamname"  is  an  input  stream  for  operator  "id"  then 
basename  :=  type_name  of  "stream_name"; 

endif; 
endif; 

if  operator  "id"  is  a  member  of  prototype  B  then 

fetch  operator  "id"  from  prototype  B; 

if  "streamname"  is  an  input  stream  for  operator  "id"  then 
bname  :=  typename  of  "streamname"; 

endif; 
endif; 

mergedtypename  :=  merge_types(base_name,  aname,  bname); 

end  merge_input_stream_type_names; 


Figure  4.34:  Algorithm  Sketch  for  mergeinputstreamtypenames 
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3.  Module:  mergevertexattributes 

This  procedure  merges  maximum  execution  times  and  vertex  properties  recovered 
from  original  CHANGE  A,  BASE,  and  CHANGE  B  prototype  composite  operators  for 
use  in  the  post-merge  reconstruction  of  new  composite  operators  during  decomposition 
recovery.  It  is  necessary  to  go  the  original  CHANGE  A,  BASE,  and  CHANGE  B 
prototypes  to  get  the  vertex  attributes  given  that  they  are  lost  in  the  pre-merge  flattening 
process  and  thus  are  absent  from  the  flattened  merged  prototype. 


procedure  merge_vertex_attributes(merged  met:  in  out  millisec; 

vertex_properties:  in  out  initmap; 
op:  opid;  coname:  psdlid; 
A,  BASE,  B:  psdl_program); 

Input: 

mergedmet:  used  to  return  merges  met 

vertex  properties:  used  to  return  merged  vertex  properties 

op:  opid  identifier  for  composite  operator  for  which  merge  will  be  accomplished 

coname:  psdlid  identifier  for  composite  operator  for  which  merge  will  be  accomplished 

A:  pre-merge  version  of  Change  A  prototype 

BASE:  pre-merge  version  of  BASE  prototype 

B:  pre-merge  version  of  Change  B  prototype 

Output: 

mergedmet:  merged  met  for  composite  operator 
vertex_properties:  merged  vertex  properties  for  composite  operator 

Figure  4.35:  Concrete  Interface  Specification  for  merge_vertex_attributes 
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Algorithm  merge_vertex_attributes(merged_met:  in  out  millisec; 

vertex_properties:  in  out  initmap; 
op:  opid;  coname:  psdlid; 
A,  BASE,  B:  psdl_program); 


begin 


agraph,  base_graph,  bgraph:  psdlgraph; 

adiffbase,  aintb,  bdiffbase,  amet,  basemet,  bmet:  millisec  :=  undefinedtime; 

initialize  agraph,  basegraph,  and  bgraph  to  empty; 

if  coname  is  an  operator  in  prototype  A  then 

agraph  :=  copy  of  coname's  graph  from  A 

if  op  is  a  vertex  in  agraph  then 

amet  :=  met  value  of  op  in  agraph; 

end  if; 
endif; 

if  coname  is  an  operator  in  prototype  BASE  then 

basegraph  :=  copy  of  coname's  graph  from  BASE 

if  op  is  a  vertex  in  basegraph  then 

basemet  :=  met  value  of  op  in  basegraph; 

end  if; 
endif; 

if  coname  is  an  operator  in  prototype  B  then 

bgraph  :=  copy  of  coname's  graph  from  B 

if  op  is  a  vertex  in  bgraph  then 

bmet  :=  met  value  of  op  in  bgraph; 

end  if; 
endif; 

—  Taken  from  [3].  Note  that  in  [3],  system.maxint  is  assigned  instead  of  undefinedtime; 
if  a_met  <=  bmet  then  aintb  :=  bmet;  else  aintb  :=  amet;  endif; 

if  basemet  <=  amet  then  adiffbase  :=  undefinedtime;  else  adiffbase  :=  amet;  endif; 

if  base_met  <=  bmet  then  b_diff_base  :=  undefinedtime;  else  bdiffbase  :=  b_met;  endif; 

Figure  4.36:  Algorithm  Sketch  for  merge_vertex_attributes 
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if  adiffbase  <=  aintb  then 

if  adiffbase  <=  bdiffbase  then 

merged_met  :=  a_diff_base; 
else 

mergedmet  :=  b_diff_base; 
endif; 


else 


if  aintb  <=  bdiffbase  then 

mergedmet  :=  aintb; 

else 

mergedmet  :=  bdiffbase; 

endif; 


endif; 


—  Now,  based  on  which  prototype  the  met  was  recovered  from,  get 

—  the  corresponding  vertex_property  init_map. 

if  merged_met  =  base_met  and  op  is  a  vertex  in  basegraph  then 

vertex_properties  :=  copy  of  op's  vertex_properties  from  basegraph; 
elsif  mergedmet  =  amet  and  op  is  a  vertex  in  agraph  then 

vertexjproperties  :=  copy  of  op's  vertex_properties  from  agraph; 
elsif  mergedmet  =  bmet  and  op  is  a  vertex  in  bgraph  then 

vertex_properties  :=  copy  of  op's  vertex_properties  from  bgraph; 
else 

vertex_properties  :=  empty_init_map; 
end  if; 

recycle  agraph,  base_graph,  and  b_graph; 

end  mergevertexattributes; 

Figure  4.37:  Algorithm  Sketch  for  merge_vertex_attributes  (cont.) 

4.  Module:  addcompositevertex 

This  module  is  used  to  create  a  composite  vertex  and  add  it  to  a  composite 
operator's  graph.  The  vertex  attributes  are  merged  from  the  corresponding  attributes  in 
the  un-expanded  prototypes  CHANGE  A,  BASE,  and  CHANGE  B. 
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procedure  add_composite_vertex(v:  opid;  co:  in  out  composite  operator;  A,  BASE,  B:  psdl_program); 

Input: 

V:  opid  identifier  for  vertex  to  add  to  composite  operator 
co:  composite  operator  the  vertex  v  will  be  added  to 
A:  pre-merge  version  of  Change  A  prototype 
BASE:  pre-merge  version  of  BASE  prototype 
B:  pre-merge  version  of  Change  B  prototype 

Output: 

co:  composite  operator  co  with  update  graph 

Figure  4.38:  Concrete  Interface  Specification  for  add_composite_vertex 


Algorithm  add_composite_vertex(v:  opid;  co:  in  out  compositeoperator;  A,  BASE,  B:  psdl_program); 

cograph:  psdl_graph; 
op:  psdlcomponent; 
vertex_properties:  initmap; 
merged_met:  millisec  :=  undefined_time; 
begin 

—  call  mergevertexattributes  to  merge  v's  met  and  vertex  properties 

—  from  the  definitions  of  co  in  A,  BASE,  B  prototypes  given  that  these 

—  values  are  unavailable  in  the  flattened  merged  prototype;  return  thes 

—  merged  attributes  in  mergedmet  and  vertex_properties. 
merge_vertex_attributes(merged_met,  vertex_properties,  v,  name(co),  A,  BASE,  B); 

cograph  :=  copy  of  co's  graph; 

add  vertex  v  to  cograph  with  associated  mergedmet  and  vertex_properties; 

set  co's  graph  to  co_graph; 

recycle  co_graph; 

end  addcompositevertex; 

Figure  4.39:  Algorithm  Sketch  for  add_composite_vertex 
5.  Module:  mergeedgeattributes 

This  procedure  recovers  latencies  and  edge  properties  from  original  CHANGE  A, 
BASE,  and  CHANGE  B  prototype  composite  operators  for  use  in  the  post-merge 
reconstruction  of  new  composite  operators  during  decomposition  recovery.  It  is 
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necessary  to  go  the  original  CHANGE  A,  BASE,  and  CHANGE  B  prototypes  to  get  the 
edge  attributes  given  that  they  are  lost  in  the  pre-merge  flattening  process  and  thus  are 
absent  from  the  flattened  merged  prototype. 


procedure  merge_edge_attributes(merged_latency:  in  out  millisec; 

streams_properties:  in  out  init_map; 
source,  sink:  opid; 
streamname,  coname:  psdlid; 
A,  BASE,  B:  psdl_program); 


Input: 


mergedlatency:  used  to  return  the  merged  latency 

streams_properties:  used  to  return  the  properties  of  the  edge's  data  stream 

source:  opid  identifier  for  edge's  source  operator 

sink:  op_id  identifier  for  edge's  sink  operator 

stream_name:  psdlid  name  for  edge's  data  stream 

coname:  psdlid  name  of  composite  operator  to  retrieve  edge  from  in  A,  BASE,  B 

A:  pre-merge  version  of  Change  A  prototype 

BASE:  pre-merge  version  of  BASE  prototype 

B:  pre-merge  version  of  Change  B  prototype 


Output: 


mergedlatency:  merged  latency  for  the  edge's  data  stream 
streams_properties:  properties  of  the  edge's  data  stream 

Figure  4.40:  Concrete  Interface  Specification  for  merge_edge_attributes 
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Algorithm  merge_edge_attributes(merged_latency:  in  out  millisec; 

streams_properties:  in  out  initmap; 
source,  sink:  opid; 
streamname,  coname:  psdlid; 
A,  BASE,  B:  psdl_program); 


begin 


agraph,  basegraph,  b_graph:  psdlgraph; 

alatency,  baselatency,  blatency:  millisec  :=  undefmedtime; 

initialize  a_graph,  basegraph,  bgraph  to  empy; 

if  co_name  is  an  operator  in  A  then 

agraph  :=  copy  of  coname's  graph  from  A; 
if  the  edge  source,  sink,  stream_name  is  in  agraph  then 
alatency  :=  latency  for  the  edge  from  agraph; 
endif; 

endif; 

if  coname  is  an  operator  in  BASE  then 

basegraph  :=  copy  of  coname's  graph  from  BASE; 

if  the  edge  source,  sink,  streamname  is  in  basegraph  then 

baselatency  :=  latency  for  the  edge  from  basegraph; 

endif; 
endif; 

if  co_name  is  an  operator  in  B  then 

bgraph  :=  copy  of  coname's  graph  from  B; 
if  the  edge  source,  sink,  streamname  is  in  bgraph  then 
blatency  :=  latency  for  the  edge  from  bgraph; 
endif; 

endif; 

—  Now,  merge  the  recovered  latencies 

if  baselatency  =  a_latency  then 

if  base_latency  =  b_latency  then 

mergedlatency  :=  base_latency; 
else 

mergedlatency  :=  b_latency; 
endif; 


else 


if  baselatency  =  blatency  then 

mergedlatency  :=  alatency; 
else 

if  alatency  =  blatency  then 

mergedlatency  :=  alatency; 
else 

mergedlatency  :=  undefmedtime;  —  different 
endif; 
endif; 


endif; 


Figure  4.41 :  Algorithm  Sketch  for  merge_edge_attributes 
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—  Now,  based  on  which  prototype  the  latency  was  recovered  from,  get 

—  the  corresponding  edge_property  initmap. 

if  mergedlatency  =  base_latency  and  the  edge  source,  sink,  streamname  is  in  base_graph 
then 

streams_properties  :=  copy  of  the  edge's  properties  from  base_graph; 
elsif  mergedlatency  =  a_latency  and  the  edge  source,  sink,  streamname  is  in  agraph 
then 

streams_properties  :=  copy  of  the  edge's  properties  from  agraph; 
elsif  merged_latency  =  b_latency  and  the  edge  source,  sink,  stream_name  is  in  bgraph 
then 

streams_properties  :=  copy  of  the  edge's  properties  from  b_graph; 
else 

streams_properties  :=  empty_init_map; 
endif; 

recycle  agraph,  base_graph,  bgraph; 

end  mergeedgeattributes; 

Figure  4.42:  Algorithm  Sketch  for  merge_edge_attributes  (cont.) 
6.  Module:  mergecompositeelements 

This  module  is  used  to  update  new  composite  operator's  states,  axioms,  informal 
description,  and  implementation  descriptions  by  attempting  a  merge  of  original 
composite  operators  from  the  BASE,  CHANGE  A,  and  CHANGE  B  psdl_program's. 


procedure  merge_composite_elements(A,  BASE,  B:  in  psdl_program; 

op:  in  out  compositeoperator); 
Input: 

op:  composite  operator  whose  elements  will  be  merged 
A:  pre-merge  version  of  Change  A  prototype 
BASE:  pre-merge  version  of  BASE  prototype 
B:  pre-merge  version  of  Change  B  prototype 

Output: 

op:  composite  operator  with  merged  elements 

Figure  4.43:  Concrete  Interface  Specification  for  merge_composite_elements 
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Algorithm  merge_composite_elements(A,  BASE,  B:  in  psdl_program; 

co:  in  out  compositeoperator); 

co_A,  coBASE,  co_B:  compositeoperator; 
mergedstates:  typedeclaration; 
mergedinit:  initmap; 


begin 


--  first  get  the  composite  operators  from  the  original  decomposition's. 

--  If  one  doesn't  exist,  make  a  dummy  so  we  can  reuse  existing  functions  and 

—  procedures. 

If  co  is  an  operator  in  prototype  A  then 

co_A  :=  co's  definition  from  A; 
else 

co_A  :=  make_composite_operator(name(co)); 
endif; 

If  co  is  an  operator  in  prototype  BASE  then 

coBASE  :=  co's  definition  from  BASE; 
else 

coBASE  :=  make_composite_operator(name(co)); 
endif; 

If  co  is  an  operator  in  prototype  A  then 

co_B  :=  co's  definition  from  B; 
else 

co_B  :=  make_composite_operator(name(co)); 
endif; 

—  merge  the  informal  descriptions  and  assign  the  merged  result  to  co. 
set_informal_description(merge_text(informal_description(co_BASE), 

informaldescription(coA), 
informaldescription(coB)),  co); 

—  merge  the  axioms  and  assign  the  merged  result  to  co. 
set_axioms(merge_text(axioms(co_BASE),  axioms(coA),  axioms(coB)),  co); 

—  merge  the  implementation  descriptions  and  assign  the  merged  result  to  co. 
set_implementation_description(merge_text(implementation_description(co_BASE), 

implementation_description(co_A), 
implementationdescription(coB)),  co); 

—  Call  mergestates  to  merge  the  states  and  associated  values. 
merge_states(merged_states,  states(coBASE),  states(co_A),  states(coB), 

mergedinit,  get_init_map(co_BASE),  get_init_map(co_A), 
get_init_map(co_B )) ; 

Figure  4.44:  Algorithm  Sketch  for  merge_composite_eIements 
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~  add  the  states  to  the  new  composite  operator  co. 
if  merged_states  is  not  empty  then 

for  each  state  stream  and  associated  type_name  in  mergedstates 

loop 

add  the  state  stream  with  associated  type_name  to  composite  operator  co; 

endloop; 
endif; 

—  add  the  initial  values  for  the  states  to  the  new  composite  operator  co. 
if  merged_init  is  not  empty  then 

for  each  stream  and  associated  initialization  expression  in  merged_init 

loop 

add  the  stream  and  associated  initialization  expression  to  composite  operator  co; 

endloop; 
endif; 

recycle  local  psdl  data  structures; 

end  mergecompositeelements; 

Figure  4.45:  Algorithm  Sketch  for  merge_composite_elements  (cont.) 


7.  Module:  setopidoperationname 

To  access  many  of  an  operators  specification  and  implementation  elements,  a 
variable  of  type  op_id  containing  the  operator's  psdl_id  is  needed.  This  procedure  returns 
such  a  variable  initialized  to  the  psdlid  name  of  an  operator. 

procedure  set_op_id_operation_name(id:  psdlid;  op:in  out  opid); 
Input: 


id:  psdlid  name  to  be  assigned  to  op 
op:  used  to  return  op_id  identifier  for  id 
Output: 

op:  op_id  identifier  for  operator  psdlid  name  "id" 


Figure  4.46:  Concrete  Interface  Specification  for  set_op_id_operation_name 
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Algorithm  set_op_id_operation_name(id:  psdlid;  op:in  out  opid) 

is 

begin 

op.operationname  :=  id; 

op.typename  :=  empty; 
end  set_op_id_operation_name; 


Figure  4.47:  Algorithm  Sketch  for  set_op_id_operation_name 
8.  Module:  update_parents_graph 

The  input  and  output  edges  for  composite  operators  other  the  root  are  also  edges 
in  the  their  parent's  graph.  What  update_parents_graph  does  is  add  a  composite 
operator's  input  and  output  edges  to  its  parent's  psdl_graph  edge  set.  An  edge  is  an  input 
edge  for  a  composite  operator  if  the  edge's  source  is  not  in  the  operator's  edge  set.  An 
edge  is  an  output  edge  for  a  composite  operator  if  the  edge's  sink  is  not  in  the  operator's 
edge  set.  It  is  necessary  to  go  the  original  CHANGE  A,  BASE,  and  CHANGE  B 
prototypes  to  get  the  edge  attributes  given  that  they  are  lost  in  the  pre-merge  flattening 
process  and  thus  are  absent  from  the  flattened  merged  prototype. 


procedure  update_parents_graph(co:  compositeoperator; 

A,  BASE,  B,  NEWPSDL:  psdl_program); 
Input: 

co:  composite  operator  whose  parent's  graph  will  be  updated 
A:  pre-merge  version  of  Change  A  prototype 
BASE:  pre-merge  version  of  BASE  prototype 
B:  pre-merge  version  of  Change  B  prototype 

Figure  4.48:  Concrete  Interface  Specification  for  update_parents_graph 
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Algorithm  update_parents_graph(co:  compositeoperator;  A,  BASE,  B,  NEWPSDL:  psdl_program); 

childgraph,  parent_graph:  psdl_graph; 
source_parent_op_id,  sink_parent_op_id:  opid; 
parentco,  parentop:  compositeoperator; 
graphs_edges:  edgeset;  streams_properties:  initmap; 
streamslatency:  millisec  :=  undefinedtime; 
begin 

childgraph  :=  copy  of  co's  graph; 
parentgraph  :=  copy  of  co's  parent's  graph; 
parentco  :=  co's  parent's  operator  definition; 
streams_properties  :=  emptyinitmap; 
graphsedges  :=  copy  of  co's  graph  edge  set; 

for  each  edge  E  in  graphsedges 
loop 

if  the  E's  sink  is  not  in  childgraph  then 

if  the  E's  sink  is  not  in  parentgraph  then 

sink_parent_op_id  :=  opid  identifier  of  sink  operator's  parent; 
source_parent_op_id  :=  opid  identifier  of  source  operator's  parent; 
if  the  edge  NE:  source_parent_op_id,  sink_parent_op_id, 
E's  streamname  is  not  in  parentgraph 


then 


Call  merge_edge_attributes  to  merge  streamslatency  and 
streams_properties  for  the  edge  NE  from  parentco's  graphs 
in  A,  BASE,  B  prototypes; 

Add  the  edge  NE  and  associated  merged  streamslatency  and 
streams_properties  to  parentgraph; 


endif; 


endif; 
endif; 


Figure  4.49:  Algorithm  Sketch  for  update_parents_graph 
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if  the  E's  source  is  not  in  childgraph  then 

if  the  E's  source  is  not  in  parentgraph  then 

sink_parent_op_id  :=  opid  identifier  of  sink  operator's  parent; 
source_parent_op_id  :=  opid  identifier  of  source  operator's  parent; 
if  the  edge  NE:  source_parent_op_id,  sink_parent_op_id, 
E's  streamname  is  not  in  parentgraph 


then 


Call  mergeedgeattributes  to  merge  streamslatency  and 
streams_properties  for  the  edge  NE  from  parentco's  graphs 
in  A,  BASE,  B  prototypes; 

Add  the  edge  NE  and  associated  merged  streamslatency  and 
streams_properties  to  parentgraph; 


endif; 


endif; 
endif; 
endloop; 

set  parentco's  graph  to  parentgraph; 
recycle  local  psdl  data  structures; 

end  update_parents_graph; 


Figure  4.50:  Algorithm  Sketch  for  update_parents_graph  (cont.) 
9.  Module:  updaterootedges 

At  the  root  operator  level,  input  and  output  edges  go  into  or  come  out  of 
composite  operators.  As  input  and  output  edges  of  root's  child  operators  are  copied  to 
root,  the  edge  may  have  a  source  or  sink  that  is  not  a  vertex  in  root's  graph.  This  indicates 
that  the  edge  begins  (sources)  or  ends  (sinks)  in  a  composite  operator  in  root's  graph. 
What  update_root_edges  does  is  find  such  sources  and  sinks  and  changes  their  names  to 
the  corresponding  composite  operator  names  in  root.  It  is  necessary  to  go  the  original 
CHANGE  A,  BASE,  and  CHANGE  B  prototypes  to  get  the  edge  attributes  given  that 
they  are  lost  in  the  pre-merge  flattening  process  and  thus  are  absent  from  the  flattened 
merged  prototype. 
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procedure  update_root_edges(co:  in  out  compositeoperator; 

A,  BASE,  B,  NEWPSDL:  psdl_program); 
Input: 

co:  root's  composite  operator  definition 

A:  pre-merge  version  of  Change  A  prototype 

BASE:  pre-merge  version  of  BASE  prototype 

B:  pre-merge  version  of  Change  B  prototype 
Output: 

co:  root's  updated  definition 

Figure  4.51:  Concrete  Interface  Specification  for  update_root_edges 


Algorithm  update_root_edges(co:  in  out  compositeoperator;  A,  BASE,  B,  NEWPSDL:  psdl_program); 

parentop:  compositeoperator; 
rootgraph:  psdlgraph; 
graphsedges:  edgeset; 
streams_properties:  initmap; 
streamslatency:  millisec  :=  undefinedtime; 
sink_parent_op_id,  source_parent_op_id:  opid; 


begin 


rootgraph  :=  copy  of  co's  graph; 
streams_properties  :=  emptyinitmap; 
graphsedges  :=  copy  of  edges  from  rootgraph; 

for  each  edge  E  in  graphs_edges 
loop 

if  E's  source  is  not  in  rootgraph  then 

source_parent_op_id  :=  opid  identifier  for  source's  parent; 

if  the  edge  NE:  source_parent_op_id,  E's  sink,  E's  streamname  is  not  in 

root_graph 

then 

Call  merge_edge_attributes  to  merge  streamslatency  and 
streams_properties  for  the  edge  NE  from  root's  graphs 
in  A,  BASE,  B  prototypes; 

remove  edge  E  from  rootgraph; 

Add  the  edge  NE  and  associated  merged  streamslatency  and 
streams_properties  to  rootgraph; 
end  if; 
end  if; 

Figure  4.52:  Algorithm  Sketch  for  update_root_edges 
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if  E's  sink  is  not  in  rootgraph  then 

sink_parent_op_id  :=  opid  identifier  for  sink's  parent; 

if  the  edge  NE:  E's  source,  sink_parent_op_id,  E's  streamname  is  not  in 

rootgraph 

then 

Call  mergeedgeattributes  to  merge  streamslatency  and 
streams_properties  for  the  edge  NE  from  root's  graphs 
in  A,  BASE,  B  prototypes; 

remove  edge  E  from  rootgraph; 

Add  the  edge  NE  and  associated  merged  streamslatency  and 
streams_properties  to  rootgraph; 
end  if; 
end  if; 
end  loop; 

set  root's  grsph  to  rootgrsph; 

recycle  local  psdl  data  structures; 

end  updaterootedges; 

Figure  4.53:  Algorithm  Sketch  for  update_root_edges  (cont.) 
10.        Module:  setexternalinputsnoutputs 

For  composite  operators  other  than  the  root  operator,  this  procedure  labels  the 
source  for  input  edges  and  the  sink  for  output  edges  as  EXTERNAL: 

input  streams: 

EXTERNAL  ->  input  streamname  ->  local  sink  operator; 

output  streams: 

local  source  operator  ->  output  strearnname  ->  EXTERNAL. 

It  is  necessary  to  go  the  original  CHANGE  A,  BASE,  and  CHANGE  B 

prototypes  to  get  the  edge  attributes  given  that  they  are  lost  in  the  pre-merge  flattening 
process  and  thus  are  absent  from  the  flattened  merged  prototype. 
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procedure  set_external_inputs_n_outputs(co:  in  out  composite  operator; 

A,  BASE,  B,  NEWPSDL:  psdl_program); 
Input: 

co:  composite  operator  whose  graph  will  be  updated 
A:  pre-merge  version  of  Change  A  prototype 
BASE:  pre-merge  version  of  BASE  prototype 
B:  pre-merge  version  of  Change  B  prototype 

Output: 

co:  operator  with  update  graph 

Figure  4.54:  Concrete  Interface  Specification  for  set_external_inputs_n_outputs 


Algorithm  set_external_inputs_n_outputs(co:  in  out  compositeoperator; 

A,  BASE,  B,  NEWPSDL:  psdl_program); 

parent_op_id:  op_id; 
parent_op:  compositeoperator; 
new_graph,  parentgraph:  psdlgraph; 
inputstreams,  outputstreams:  typedeclaration; 
graphsedges:  edge_set; 
streams_properties:  init_map; 
streamslatency:  millisec  :=  undefined_time; 
external:  opid; 


begin 


new_graph  :=  a  copy  of  co's  graph; 
inputstreams  :=  co's  input  type_declarations; 
outputstreams  :=  co's  output  typedeclarations; 
streams_properties  :=  emptyinitmap; 
external  :=  operationname  set  to  "EXTERNAL" 
graphs_edges  :=  co's  graph's  edge  set; 

~  for  inputs,  the  sink  will  be  local  and  the  source  will  be  EXTERNAL; 
for  each  streamname  S  and  associated  type_name  in  inputstreams 
loop 

for  each  edge  E  in  graphsedges 
loop 

if  S's  stream_name  =  E's  streamname  and  E's  source  is  not  in  newgraph 
then 

if  edge  NE:  external,  E's  sink,  E's  streamname  is  not  in  newgraph 
then 

Call  mergeedgeattributes  to  merge  streams_latency  and 
streams_properties  for  the  edge  NE  from  co's  graphs 
in  A,  BASE,  B  prototypes; 

Remove  edge  E  from  newgraph; 
Figure  4.55:  Algorithm  Sketch  for  set_external_inputs_n_outputs 
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Add  the  edge  NE  and  associated  merged  streamslatency  and 
streams_properties  to  newgraph; 
else  —  remove  redundant  stream  for  the  streamname  with  e.sink 

Remove  edge  E  from  newgraph; 
endif; 
endif; 
endloop; 

endloop; 

—  for  outputs,  the  sink  will  be  EXTERNAL  and  the  source  will  be  local 
for  each  streamname  S  and  associated  typename  in  outputstreams 
loop 

for  each  edge  E  in  graphsedges 
loop 

if  S's  streamname  =  E's  streamname  and  E's  sink  is  not  in  newgraph 
then 

if  edge  NE:  E's  source,  external,  E's  streamname  is  not  in  newgraph 
then 

Call  mergeedgeattributes  to  merge  streamslatency  and 
streams_properties  for  the  edge  NE  from  co's  graphs 
in  A,  BASE,  B  prototypes; 

Remove  edge  E  from  newgraph; 

Add  the  edge  NE  and  associated  merged  streamslatency  and 
streams_properties  to  newgraph; 
else  —  remove  redundant  stream  for  the  streamname  with  e.sink 

remove  edge  E  from  newgraph; 
endif; 
endif; 
endloop; 

endloop; 

set  co's  graph  to  newgraph 

recycle  local  psdl  data  structures; 

end  setexternalinputsnoutputs; 

Figure  4.56:  Algorithm  Sketch  for  set_external_inputs_n_outputs  (cont.) 
11.        Module:  copystreams 

This  module  is  used  to  copy  data  streams  from  one  composite  operator  to  another. 
In  the  context  of  decomposition  recovery,  the  copy  is  from  the  merged  prototype's  root 
operator  to  a  composite  operator  in  reconstructed  prototype. 
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procedure  copy_streams(from_op:  compositeoperator; 

toop:  in  out  compositeoperator); 

Input: 

fromop:  operator  that  data  streams  will  be  copied  from, 
toop:  operator  that  data  streams  will  be  copied  to. 

Output: 

toop:  operator  with  updated  data  streams. 


Figure  4.57:  Concrete  Interface  Specification  for  copy_streams 


begin 


Algorithm  copy_streams(from_op:  composite  operator; 

toop:  in  out  compositeoperator); 

tograph:  psdlgraph; 
datastreams:  typedeclaration; 
to_graph_edges:  edgeset; 

to_graph  :=  copy  of  toop's  graph; 
datastreams  :=  copy  of  fromop's  data  streams; 
to_graph_edges  :=  copy  of tograph's  edge  set; 

for  edge  E  in  tographedges 
loop 

for  each  streamname  S  and  typename  T  in  datastreams 
loop 

if  S  =  E's  streamname  then 

if  S's  streamname  is  not  a  member  of  toop's  data  streams 
and  S's  streamname  is  not  in  toops  inputs 
and  S's  streamname  is  not  in  toops  outputs  then 
add  S,  T  to  toop's  data  steams; 
endif; 
endif; 
endloop; 
endloop; 

recycle  local  psdl  data  structures; 
end  copystreams; 

Figure  4.58:  Algorithm  Sketch  for  copy_streams 


71 


12.        Module:  finishcompositeoperatorconstruction 

By  the  time  this  module  is  called  in  decomposition  recovery  processing,  a  skeletal 
decomposition  structure  has  been  constructed  from  merged  ancestor  chains  -  all  operators 
are  in  correct  structural  context  with  regard  to  parent-child  relationship.  However,  the 
composite  operator's  specification  and  implementation  parts  are  largely  incomplete.  What 
finish_composite_operator_construction  does  is  recurse  through  this  skeletal  structure 
filling  in  the  missing  specification  and  implementation  parts  for  these  operators. 


procedure  finish_composite_operator_construction(gr:  psdlgraph; 

A,  BASE,  B,  NEW_PSDL:  psdl_program; 

co,  newrootco;  mergedrootco:  psdlcomponent); 

Input: 

gr:  the  composite  operator  incomplete  graph. 

A:  pre-merge  version  of  Change  A  prototype. 

BASE:  pre-merge  version  of  BASE  prototype. 

B:  pre-merge  version  of  Change  B  prototype. 

NEWPSDL:  partially  reconstructed  prototype. 

co:  the  composite  operator  to  finish  reconstructing. 

newrootco:  the  root  operator  for  the  prototype  under  reconstruction 

mergedrootco:  the  root  operator  definition  from  the  merged  flattened  prototype. 

Figure  4.59:  Concrete  Interface  Specification  for 
finishcompositeoperatorconstruction 


Algorithm  finish_composite_operator_construction(gr:  psdlgraph; 

A,  BASE,  B,  NEWPSDL:  psdl_program; 

co,  newrootco;  mergedrootco:  psdlcomponent); 

graphsvertices:  opidset; 

graphs  edges  :  edgeset; 

source  notmvertices,  sinknotinvertices:  Boolean  :=  True; 

local  co:  psdlcomponent; 

cop\   ofgraph:  psdlgraph; 

merged  typename:  typename  :=  nulltype; 

Figure  4.60:  Algorithm  Sketch  for  finishcompositeoperatorconstruction 
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begin 

graphsvertices  :=  gr's  vertice  op_id_set; 

—  recurse  down  through  composite  operator  graphs  setting  input  and  output  stream  attributes  for 

—  composite  operators.  When  this  loop  exits,  any  child  composite  operator  for  "co"  has  been 

—  reconstructed  and  "co's"  graph  has  been  updated  and  can  be  used  to  set  "input"  and  "output" 

—  specification  attributes 

for  each  opid  ID  in  graphsvertices 
loop 

localco  :=  ID's  operator  definition  from  NEWPSDL; 
if  co  is  a  composite  operator  then 

copy_of_graph  :=  copy  of  co's  graph; 
finish_composite_operator_construction(copy_of_graph,  A,  BASE,  B, 

NEWPSDL,  localco,  newrootco,  mergesrootco); 
endif; 
endloop; 

—  if  there  is  a  source  or  sink  for  an  edge  and  the  source  or  sink  is  not  in  the  vertices  set  for  the  graph,  then 

—  the  edge  is  an  input  stream  or  output  stream  ;  so,  assign  the  stream  as  an  input  stream  or  output  stream 

—  for  the  operator 

localco  :=  co; 

if  localco  is  not  equal  to  new_root_co  then 

graphsedges  :=  copy  of  gr's  edge  set; 

for  each  edge  E  in  graphs_edges)  loop 

sourcenotinvertices  :=  True; 
sink_not_in_vertices  :=  True; 

for  each  opid  ID  in  graphsvertices  loop 
if  E's  source  =  ID  then 

source_not_in_vertices  :=  False; 
endif; 
if  E's  sink  =  ID  then 

sink_not_in_vertices  :=  False; 
endif; 
endloop; 

if  source_not_in_vertices  then 

if  E's  source  name  is  not  "EXTERNAL" 
then 

if  E's  streamname  is  not  in  local_co's  inputs 
then 

Call  merge_input_stream_type_names 

to  get  merged_type_name  for  E  from  localco's 

definitions  in  A,  BASE,  B; 

Figure  4.61:  Algorithm  Sketch  for  finish_composite_operator_construction  (cont.) 
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Add  E's  stream  name,  merged_type_name, 
to  localco's  inputs; 
endif; 
endif; 
endif; 

if  sink_not_in_vertices  then 

if  E's  sink  name  is  not  "EXTERNAL" 
then 

if  E's  streamname  is  not  in  local_co's  outputs 
then 

Call  merge_output_stream_type_names 

to  get  mergedtypename  for  E  from  localco's 

definitions  in  A,  BASE,  B; 


Add  E's  streamname,  merged_type_name, 
to  localco's  outputs; 


endif; 


endif; 


endif; 
endloop; 
endif; 


—  copy  over  data  streams  from  merged  co  corresponding  to  edges 

—  in  localco's  graph 
copy_streams(merged_root_co,  localco); 

if  localco  is  not  equal  to  newrootco  then 

update_parents_graph(local_co,  A,  BASE,  B,  NEWPSDL); 

set_external_inputs_n_outputs(local_co,  A,  BASE,  B,  NEW_PSDL); 
else 

update_root_edges(new_root_co,  A,  BASE,  B,  NEWPSDL); 
endif; 

—  set_visible_timers(local_co); 

—  merge  axioms,  implementation  descriptions,  informal  descriptions, 

—  and  states 
merge_composite_elements(A,  BASE,  B,  localco); 

recycle  local  psdl  data  structures; 

end  finish_composite_operator_construction; 

Figure  4.62:  Algorithm  Sketch  for  finish_composite_operator_construction  (cont.) 
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13.        Module:  copytimingconstraints 

This  module  is  used  to  copy  operator's  timing  constraints  (period,  finished-within, 
minimum-calling-period,  maximum  response  time)  from  one  composite  operator  to 
another.  In  the  context  of  decomposition  recovery,  the  copy  is  from  the  merged 
prototype's  root  operator  to  a  composite  operator  in  the  reconstructed  prototype. 


procedure  copy_timing_constraints(operator_id:  opid;  fromop:  compositeoperator; 

toop:  in  out  composite  operator); 

Input: 

operatorid:  opid  identifier  for  composite  operator, 
fromop:  composite  operator  that  values  will  be  copied  from, 
toop:  composite  operator  that  values  will  bw  copied  to. 
Output: 

toop:  composite  operator  updated  with  from_op's  timing  constraints 

Figure  4.63:  Concrete  Interface  Specification  for  copy_timing_constraints 


Algorithm  copy_timing_constraints(operator_id:  opid;  fromop:  compositeoperator; 

toop:  in  out  compositeoperator); 

begin 

Copy  operator_id's  "period"  value  from  fromop  to  to-op; 

Copy  operator_id's  "finishwithin"  value  from  fromop  to  toop; 

Copy  operatorid's  "minimum_calling_period"  value  from  fromop  to  to_op; 

Copy  operatorid's  "maximum_response_time"  value  from  fromop  to  to_op; 

end  copytimingconstraints; 

Figure  4.64:  Algorithm  Sketch  for  copy_timing_constraints 
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14.        Module:  copyexceptiontriggers 

This  module  is  used  to  copy  operator's  exception  triggers  from  one  composite 
operator  to  another.  In  the  context  of  decomposition  recovery,  the  copy  is  from  the 
merged  prototype's  root  operator  to  a  composite  operator  in  the  reconstructed  prototype. 


procedure  copy_exception_triggers(operator_id:  opid; 

fromop:  composite_operator; 
toop:  in  out  compositeoperator); 

Input: 

operator_id:  opid  identifier  for  composite  operator. 
from_op:  composite  operator  that  values  will  be  copied  from, 
toop:  composite  operator  that  values  will  bw  copied  to. 
Output: 

toop:  composite  operator  updated  with  fromop's  exception  triggers. 

Figure  4.65:  Concrete  Interface  Specification  for  copy_exception_triggers 


Algorithm  copy_exception_triggers(operator_id:  opid; 

fromop:  compositeoperator;  toop:  in  out  compositeoperator); 


begin 


localopid:  opid  :=  operatorid; 
exceptrigs:  excep_trigger_map; 

excep_trigs  :=  copy  of  fromop's  exceptiontriggermap; 

for  each  excepid  EX  and  associated  expression  EXP  in  exceptrigs  loop 

if  EX's  op_id  identifier  =  operatorid  then 

Copy  EX  and  associated  EXP  from  from_op  to  to_op; 

endif; 
endloop; 
recycle  excep_trigs; 

end  copyexceptiontriggers; 

Figure  4.66:  Algorithm  Sketch  for  copy_exception_triggers 
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15.        Module:  copycontrolconstraints 

This  module  is  used  to  copy  operator's  control  constraints  (triggers,  execution 
guards,  output  guards,  and  exception  triggers)  from  one  composite  operator  to  another.  In 
the  context  of  decomposition  recovery,  the  copy  is  from  the  merged  prototype's  root 
operator  to  a  composite  operator  in  the  reconstructed  prototype. 


procedure  copy_control_constraints(operator_id:  opid;  gr:  psdlgraph; 

fromop:  compositeoperator; 
toop:  in  out  compositeoperator); 

Input: 

operatorid:  op_id  identifier  for  composite  operator, 
gr:  copy  of  fromop's  graph. 

from_op:  composite  operator  that  values  will  be  copied  from, 
toop:  composite  operator  being  copied  to. 
Output: 

to_op:  composite  operator  updated  with  from_op's  control  constraints. 

Figure  4.67:  Concrete  Interface  Specification  for  copy_control_constraints 


Algorithm  copy_control_constraints(operator_id:  op  id;  gr:  psdlgraph; 
fromop:  composite_operator;  to_op:  in  out  compositeoperator); 

begin 

Copy  operatorid's  triggers  from  fromop  to  toop; 

Copy  operator_id's  execution  guards  from  fromop  to  toop; 

—  copy  output  guards  from  fromop  to  toop. 
for  each  edge  E  in  gr's  edge  set  loop 

if  E's  source  =  localopid  then 

Copy  from_op's  outputguard  for  E's  streamname  to  to_op; 

endif; 
endloop. 

Copy  operatorid's  exception  triggers  from  fromop  to  toop; 

end  copycontrolconstraints; 

Figure  4.68:  Algorithm  Sketch  for  copy_control_constraints 
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16.        Module:  copyvertexnedges 

This  module  is  used  to  a  copy  vertex  and  corresponding  edges  from  one 
operator's  psdl_graph  to  another.  In  the  context  of  decomposition  recovery,  the  copy  is 
from  the  merged  prototype's  root  operator  to  a  composite  operator  in  the  prototype  under 
reconstruction. 


procedure  copy_vertex_n_edges(op:  opid;  fromgraph:  psdlgraph;  tograph:  in  out  psdlgraph); 

Input: 

op:  opid  identifier  for  composite  operator. 
from_graph:  graph  thta  values  will  be  copied  from, 
tograph:  graph  that  values  will  be  copied  to. 
Output: 

tograph:  graph  updated  with  vertex  and  related  edges.. 

Figure  4.69:  Concrete  Interface  Specification  for  copy_vertex_n_edges 


Algorithm  copy_vertex_n_edges(op:  opid;  fromgraph:  psdlgraph;  tograph:  in  out  psdlgraph); 

localopid:  opid  :=  op; 
from_graph_edges,  tographedges:  edgeset; 

Copy  vertex  "op"  and  associated  MET  and  vertex  properties  from  fromgraph  to  tograph; 


begin 


fromgraphedges  :=  copy  of  fromgraph's  edges; 
to_graph_edges:=  copy  of  tograph's  edges; 

for  each  edge  E  in  from_graph_edges  loop 

if  E's  source  =  localopid  or  E's  sink  =  localopid  then 
if  E  is  not  in  to_graph_edges  then 

copy  E  and  E's  latency  and  edge  properties  from  fromgraph 
to  tograph; 
endif; 
endif; 
endloop; 

recycle  from_graph_edges,  to_graph_edges. 

end  copyvertexnedges; 

Figure  4.70:  Algorithm  Sketch  for  copy_vertex_n_edges 
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17.        Modules  Taken  from  [Ref.  2] 

Refer  to  [Ref.  2]  for  detail. 


Module  mergetypes 
Purpose: 

used  to  merge  the  type_name's  of  data  streams  and  state  streams. 
Concrete  Interface  Specification: 

function  merge_types(t_base,  t_a,  t_b:  typename)  return  typename; 
Module  mergetext 
Purpose: 

used  to  merge  axioms  and  informal  descriptions  for  composite  operators. 
Concrete  Interface  Specification: 

function  merge_text(BASE,  A,  B:  text)  return  text; 
Module  mergestates 
Purpose: 

used  to  merge  composite  operator  states  and  corrsponding  initial  values. 
Concrete  Interface  Specification: 

procedure  merge_states(  MERGE:  in  out  typedeclaration; 

BASE,  A,  B:  in  typedeclaration; 
MERGEINIT:  in  out  initmap; 
BASEINIT,  AINIT,  BINIT:  in  initmap); 


Note:  this  module  has  been  altered  as  follows:  in  [Ref.  2]  the  cases  where  the  state  is  only  in  A  or 
only  in  B  is  not  accounted  for.  This  module  was  altered  to  account  for  theses  cases. 


Figure  4.71 :  Modules  Taken  from  [Ref.  2] 
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V.  IMPLEMENTATION  AND  TEST 


A.  IMPLEMENTATION 

The  Decomposition  Recovery  Extension  to  the  CAPS  Change-Merge  Tool  is 
implemented  in  Ada  95  with  the  GNAT  3.09  compiler.  See  Appendix  A  for  source 
listings. 

This  implementation  (as  well  as  the  design)  make  extensive  use  of  the  PSDL 
Abstract  Data  Type  developed  by  the  CAPS  Research  Team.  Some  minor  extension  were 
made  to  this  type  to  accommodate  this  implementation.  These  extensions  are  detailed  in 
Appendix  B. 

B.  TEST 

Testing  demonstrated  correct  behavior  of  ancestor  chain  recovery  and  merge  on  a 
number  of  actual  PDSL  prototypes  of  various  sizes  (none  which  could  be  considered 
large),  as  well  as  various  combinations  of  ancestor  chains  developed  specifically  for  test. 
Conflict  reporting  and  correct  automatic  conflict  resolution  for  ancestor  chain  merge  were 
demonstrated  as  well.  See  Appendix  C  for  representative  test-cases. 

Testing  also  demonstrated  correct  reconstruction  of  PSDL  prototype 
decomposition  structure  from  the  set  of  recovered  ancestor  chains.  Correct  reconstruction 
was  demonstrated  in  both  the  case  of  conflicting  and  conflict-free  ancestor  chain  merges. 

Time  did  not  permit  rigorous  analysis  of  the  implementation's  performance. 
However,  simple  observation  suggests  that  performance  is  non-linear  (but  not  excessively 
non-linear)  in  terms  of  the  number  of  operators  in  the  prototype. 
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VI.  CONCLUSION 


A.       WHAT  HAS  BEEN  DONE  AND  WHY  IT  IS  IMPORTANT 

The  purpose  of  the  CAPS  Change-Merge  Tool  is  to  provide  an  automated 
integration  capability  ". .  .for  combining  and  integrating  the  contributions  of  different 
people  working  on  the  same  prototype"  [Ref.  2].  The  current  Change-Merge  Tool 
provides  an  automated,  reliable,  fast  integration  capability  but  loses  the  decomposition 
structure  of  the  prototype  in  the  integration  process.  The  decomposition  structure  of  a 
PSDL  prototype  is  the  critical  design  information  which  provides  understandability  for 
designers.  Even  for  small  PSDL  prototypes,  the  lack  of  decomposition  structure  in  a 
merged  prototype  makes  it  very  difficult  to  continue  prototyping  efforts  using  the  merged 
prototype  as  the  basis.  Manual  recovery  of  decomposition  structure  is  simply  too  time 
consuming.  Thus,  to  have  other  than  limited  practical  value  in  a  rapid  prototyping 
environment,  the  CAPS  Change-Merge  Tool  must  automatically  recover  decomposition 
structure  as  part  of  the  merge  process. 

What  has  been  accomplished  in  this  thesis  is  the  software  design  and  Ada 
implementation  of  an  extension  to  the  Change-Merge  Tool  which  provides  a  capability  to 
do  just  that  -  automatically  recover  design  decomposition  structure  for  merged  PSDL 
prototypes.  The  merge  and  automatic  conflict  identification  and  resolution  algorithms  of 
this  extension  are  based  in  the  formal  theory  developed  in  [Ref.  1].  Thus,  it  has  a  degree 
of  reliability  based  on  a  formalized  approach.  As  for  recovered  design,  merge  of  non- 
overlapping  structural  changes  produces  a  decomposition  structure  which  exactly  reflects 
structural  changes  to  a  prototype.  Merge  of  overlapping  or  conflicting  structural  changes 
produces  a  decomposition  structure  which  closely  approximates  structural  changes  to  a 
prototype  and  provides  a  very  reasonable  design  decomposition  structure  from  which 
post-merge  prototyping  can  continue. 
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Thus,  with  the  Decomposition  Recovery  Extension,  the  CAPS  Change-Merge 
Tool  developed  in  [Ref.  2]  not  only  provides  a  fast,  automated,  reliable  integration 
capability  for  integrating  PSDL  prototypes,  it  now  provides  a  design  decomposition 
structure  for  merged  prototypes  as  well.  Thus,  the  post-merge  delay  incurred  by  loss  of 
decomposition  structure  is  eliminated. 

B.       WHAT  STILL  NEEDS  TO  BE  DONE 

With  regards  to  the  CAPS  Change-Merge  capability  in  general,  some  of  what  still 
needs  to  be  done  is  given  in  [Ref.  2]. 

With  regards  to  the  Decomposition  Recovery  Extension,  a  number  of  things  still 
need  to  be  accomplished.  The  extension  still  needs  to  be  integrated  with  the  current 
Change-Merge  Tool.  This  will  at  least  mean  code  changes  to  the  Change-Merge  Tool  to 
integrate  the  most  recent  version  of  PSDLTYPE  and  save  un-expanded  versions  of 
CHANGE  A,  BASE,  and  CHANGE  B  prototypes.  Actual  integration  of  the 
Decomposition  Recovery  Extension  is  provided  through  a  single  call  to  procedure 
decompose_graph_pkg.decompose_graph. 

The  prototype  flattening  process  which  proceeds  prototype  merge  destroys  all 
composite  operators  except  root.  The  reconstruct_prototype  function  has  to  recreate 
many  of  these  composite  operators  during  prototype  reconstruction.  In  some  cases,  it  goes 
to  un-expanded  versions  of  the  pre-merge  prototypes  to  retrieve  composite  operator 
elements  and  then  merges  these  elements  to  derive  the  corresponding  element  for  the  new 
composite  operator.  It  may  be  the  case  that  composite  operator  reconstruction  could  be 
largely  accomplished  by  merging  the  versions  of  the  original  operators  in  the  un- 
expanded  pre-merge  prototypes.  Much  of  the  source  code  of  [Ref.  2]  could  be  reused  to  in 
such  an  effort. 


84 


In  a  few  cases,  software  to  recover  some  of  the  elements  of  composite  operator 
specification  and  implementation  parts  is  not  yet  in  place.  These  elements  include 
keywords,  visible  timers,  exceptions,  and  specified  maximum  execution  times. 

Also,  test  of  prototype  reconstruction  has  been  limited  to  smaller  sized  PSDL 
prototypes.  Thus,  as  larger  prototypes  become  available,  they  could  be  used  as  test  cases. 

Ancestor  chain  merge  conflict  reporting  could  be  improved  to  provide  more 
detail.  Currently,  only  one  of  possibly  many  conflicts  is  reported,  and  this  only  with  a 
general  statement  that  a  conflict  has  occurred  accompanied  by  a  display  of  conflict  terms. 
The  user  must  determine  where  the  conflict  occurred  by  inspecting  the  displayed  conflict 
terms.  See  Figure  6.1  for  detail  of  a  merge  conflict  report. 


ONE  OR  MORE  CONFLICTS  IN  ANCESTOR  CHAIN  RECOVERY  FOR:  atomic_op 

<root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7> 

[<root_op->op_l->op_2->op_3->op_4->op_5->op_6>] 

<root_op->op_l  ->op_2->op_3->op_8->op_4>  = 

<root_op->op_l  ->op_2->op_3->op_8->op_4>  U 

<root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7>= 

(***conflict***)  = 

<root_op->op_l  ->op_2->op_3(op_8->op_4  U  op_4->op_5->op_6->op_7)> 


Figure  6. 1 :  Example  ancestor  chain  merge  conflict  report 


85 


86 


APPENDIX  A.  ADA  IMPLEMENTATION 


This  appendix  gives  the  source  listings  for  the  Ada  packages  which  make  up  the 
Decomposition  Recovery  Extension  to  the  CAPS  Change-Merge  Tool.  The  specification 
and  body  is  given  for  each  package. 


1.  decompose_graph_pkg 

with  text_io;  use  textio; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 

with  psdl_graph_pkg;  use  psdl_graph_pkg; 

with  psdl_component__pkg;  use  psdl_component_pkg; 

with  psdl_program_pkg;  use  psdl_program_pkg; 

with  psdlio;  use  psdlio; 

with  extended_ancestor_pkg;  use  extended_ancestor__pkg; 

with  ancestor_chains_pkg;  use  ancestor_chains_pkg; 

with  reconstruct_prototype_utilities_pkg;  use  reconstruct_prototype_utilities_pkg; 

package  decompose_graph_pkg  is 

—  find  ancestor  chain  calls  recursive  function  'recoverchain'  to 

—  recover  'N's  ancestor  chain  from  a  prototype's  decomposition  structure. 
--  The  recovered  chain  sequence  will  be  of  the  form: 

[rootid] 

or 

[root_id,  0  or  more  chain  elements,  'N's  immediate  ancestor], 

—  where  a  chain  element  is  a  psdMd  name  for  an  operator.  In  the  first 

—  form,  'N's  immediate  ancestor  is  root. 

function  fmd_ancestor_chain(N,  rootid:  psdlid;  P:  psdl_program) 
return  extended  ancestor; 


-  Apply  the  merge  formula 

-  A[BASE]B  =  [A  pseudo-difference  BASE] 

union 
[A  intersection  B] 

union 
[B  pseudo-difference  BASE] 

--  to  'N's  recovered  ancestor  chains  from  prototypes  A,  BASE,  and  B. 

-  If  the  result  of  the  union  operation  is  a  nullcomponent,  then 

-  a  merging  conflict  has  occured 
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procedure  merge_ancestor_chains(A_CHAIN,  BASECHAIN,  BCHAIN: 
extendedancestor;  MERGECHAIN:  in  out  extended_ancestor); 


—  For  each  improper  ancestor,  calculate  the  greatest  lower 

—  bound  in  the  extended  ancestor  lattice  of  the  conflicting 

—  chains  and  assign  it  as  the  proper  ancestor  chain  for 

—  atomic  operator  'N'. 

procedure  resolve_conflicts(ea_map:  in  out  ancestorchains; 

rootop:  psdlid); 

—  Reconstruct  the  decomposition  structure  for  the  merged  prototype 
--  from  the  merged  ancestor  chains 

function  reconstruct_prototype(MERGE,  A,  BASE,  B:  psdl_program; 

ANCESTORS:  ancestorchains) 
return  psdl_program; 

—  procedure  decomposegraph  is  the  interface  to  the  PSDL  prototype 

—  decomposition  recovery  sub-system.  The  first  3  psdl_program  arguments 

—  are  the  pre-expanded  versions  of  PSDL  prototypes  for  change  A,  the  BASE, 

—  and  change  B.  MERGE  is  the  flattened  result  of  the  merge  of  A,  BASE, 

—  and  B.  THE  PSDL  prototype  with  recovered  decomposition  structure  is 
--  returned  in  NEW_PSDL. 

procedure  decompose_graph(A_PSDL,  BASEPSDL,  BPSDL,  MERGE:  psdl_program; 
NEWPSDL:  in  out  psdl_program); 

end  decompose_graph_pkg; 

package  body  decompose_graph_pkg  is 

—  find  ancestor  chain  calls  recursive  function  'recover_chain'  to 

—  recover  'N's  ancestor  chain  from  a  prototype's  decomposition  structure. 

—  The  recovered  chain  sequence  will  be  of  the  form: 

[rootid] 

or 
[rootid,  0  or  more  chain  elements,  'N's  immediate  ancestor], 

—  where  a  chain  element  is  a  psdlid  name  for  an  operator.  In  the  first 

—  form,  'N's  immediate  ancestor  is  root. 

function  find_ancestor_chain(N,  rootid:  psdl_id;  P:  psdl_program) 
return  extendedancestor 

is 

ancestor:  extendedancestor  :=  nullancestor; 
ancestorid:  psdl_id; 


—  recursive  function  that  constructs  ancestor  chain 

function  recover_chain(  ancestor:  extendedancestor;  operator_id, 

rootid:  psdlid;  P:  psdl_program) 
return  psdlid 
is 

ancestor_id:  psdl_id; 
begin 

—  if  have  reached  the  root  operator,  unwind  the  recursion 
if  eq(operator_id,  rootid)  then 

return  rootid; 
else  —  recurse  to  get  next  ancestor 

ancestor_id  :=  recover_chain( ancestor, 

get_ancestor(operator_id,  P),  rootid,  P); 
—  recursion  unwinding,  append  operatorid's  ancestor  to  chain 
append_ancestor(  ancestor,  ancestorid); 
return  operatorid; 
end  if; 
end  recover_chain; 

begin  —  find_ancestor_chain 

ancestor  :=  build_proper_ancestor( empty); 

—  make  sure  we  don't  try  to  find  the  root  operator's  chain;  the  root 

--  operator  is  the  composite  operator  in  the  MERGED  psdl_program  where 

—  'N'  is  the  key.  The  root  operator  will  be  an  element  of  every  'N's 

—  ancestor  chain 

if  not  eq(N,  rootid)  and  member(N,  P)  then 

—  recursively  construct  N's  ancestor  chain 
ancestorid  :=  recover_chain(  ancestor, 

get_ancestor(N,  P),  rootid,  P); 

—  append  N's  immediate  ancestor  to  the  chain 
append_ancestor(ancestor,  ancestorid) ; 

end  if; 

return  ancestor; 

end  find_ancestor_chain; 


--  Apply  the  merge  formula 

A[BASE]B=  [A  pseudo-difference  BASE] 
union 
[A  intersection  B] 

union 
[B  pseudo-difference  BASE] 

—  to  'N's  recovered  ancestor  chains  from  prototypes  A,  BASE,  and  B. 

—  If  the  result  of  the  union  operation  is  a  null  component,  then 

—  a  merging  conflict  has  occured 
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procedure  mergeancestor  chams(A_CHAIN,  BASECHAIN,  BCHAIN: 

extendedancestor;  MERGECHAIN:  in  out  extendedancestor) 

is 

a_pseudodiff_base, 
a_intersection_b, 
b_pseudodiff_base, 

unionterm:  extendedancestor  :=  nullancestor; 
begin 

—  first  try  the  simple  cases 

if  eq(A_CHAIN,  BASECHAIN)  then 

MERGE_CHArN:=build_proper_ancestor(get_chain(B_CHAIN)); 
elsif  eq(B_CHAIN,  BASECHAIN)  then 

MERGECH  AIN :  =  build jproper_ancestor(get_cham(  ACHAIN) ) ; 
elsif  eq(A_CHAIN,  BCHAIN)  then 

MERGE_CHAIN:=build_proper_ancestor(get_chain(B_CHAiN)); 
else  —  have  to  apply  the  merge  formula 

a_pseudodiff_base  :=  pseudo_difference(A_CHAIN,  BASECHAIN); 
aintersectionb  :=  intersection(A_CHAIN,  BCHAIN); 
b_pseudodiff_base  :=  pseudo_difference(B_CHAIN,  BASECHAIN); 

—  combine  the  three  merge  formula  terms  in  two  union  operations 
union_term  :=  union(a_pseudodiff_base,  aintersectionb); 
MERGECHAIN  :=  union(union_term,  b_pseudodiff_base); 
if  MERGECHAIN  =  nullancestor  then  --  conflict 

MERGECHAIN  :=  build_improper_ancestor(get_chain(A_CHAIN), 
getchain(BASECHAiN), 
get_chain(B_CHAIN)); 
end  if; 

recycle_extended_ancestor(a_pseudodiff_base); 
recycle_extended  ancestor(a_intersection_b); 
recycle_extended_ancestor(bjpseudodiff_base); 
recycleextendedancestor(unionterm); 
end  if; 
end  merge_ancestor_chains; 


—  For  each  improper  ancestor,  calculate  the  greatest  lower 

—  bound  in  the  extended  ancestor  lattice  of  the  conflicting 

—  chains  and  assign  it  as  the  proper  ancestor  chain  for 
~  atomic  operator  'N'. 

procedure  resolve_conflicts(ea_map:  in  out  ancestorchains;  root  op:  psdl_id) 
is 

scan_ea_map:  ancestorchains; 
eal:  extendedancestor; 
begin 

ancestor_chains_map_inst_pkg.assign(scan_ea_map,  eamap); 
for  N:  psdl_id,  ea:  extendedancestor  in 

ancestor_chains_map_inst_pkg.scan(scan_ea_map) 
loop 

if  typeofancestor(ea)  =  improper  then 

ancestor_chams_map_inst_pkg.remove(N,  eamap); 
ancestor_chains_map_inst_pkg.bind(N, 

resolveconflict(ea),  ea_map); 
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else 

if  eq(ea,  empty_extended_ancestor)  then 

—  account  for  the  pathelogical  case  where  N  is  in 

—  the  merged  graph  but  merging  the  ancestor  chains 

—  from  A,  BASE,  and  B  resulted  in  an  empty  chain 

ea_l  :=  build_proper_ancestor(  empty); 
append_ancestor(ea_l,  rootop); 
ancestor_chams_map_inst_pkg.remove(N,  ea_map); 
ancestor_chains_map_inst_pkg.bind(N,  eal,  ea_map); 
end  if; 
end  if; 
end  loop; 

ancestor_chains_map_inst_pkg.recycle(scan_ea_map); 
end  resolveconflicts; 

—  For  each  improper  ancestor,  output  infomative  conflict  message 

procedure  report_conflicts(ea_map:  ancestorchains) 

is 

begin 

for  N:  psdlid,  ea:  extended_ancestor  in 

ancestor_chains_map_inst_pkg.scan(ea_map) 
loop 

if  type_of_ancestor(ea)  =  improper  then 

put_conflict_message(N,  ea); 


else 


if  eq(ea,  emptyextendedancestor)  then 

—  account  for  the  pathelogical  case  where  N  is  in 

—  the  merged  graph  but  merging  the  ancestor  chains 

—  from  A,  BASE,  and  B  resulted  in  an  empty  chain 

put(convert(N)); 

put_line("  HAS  EMPTY  MERGED  CHAIN,  POSSIBLE  MERGE 

CONFLICT"); 
putJinefASSIGNING  ROOT  OPERATOR  AS  PARENT"); 


end  if; 
end  if; 
end  loop; 
end  report_conflicts; 


—  Reconstruct  the  decomposition  structure  for  the  merged  prototype 

—  from  the  merged  ancestor  chains 

function  reconstruct_prototype(MERGE,  A,  BASE,  B:  psdl_program; 

ANCESTORS:  ancestorchains) 
return  psdl_program 
is 

NEW  PSDL:  psdl__program; 

conode,  ancestor_node,  newrootop,  merges_root_op:  compositeoperator; 

newatomicop,  atomic_op:  atomic_operator; 

rootid:  psdl_id; 

chain:  psdlidsequence; 

mergesgraph,  ancestorgraph,  rootopgraph:  psdlgraph; 
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rootopid,  op,  atomicopid:  opid; 

begin 

--  put_line("reconstructjprototype_called"); 

assign(NEW_PSDL,  empty _psdl_program); 

rootid  :=  findroot(MERGE); 
set_op_id_operation_name(root_id,  rootopid) ; 
merges_root_op  :=  fetch(MERGE,  root_id); 
assign(merges_graph,  graph(merges_root_op)); 
newrootop  :=  make_composite_operator(root_id); 

-  bind  NEWPSDL's  root  operator 
bind(root_id,  newrootop,  NEWPSDL); 

—  for  every  atomic  operator  in  the  extendedancestor  map  loop 
for  atomicid:  psdlid,  ea:  extended_ancestor  in 

ancestor_chains_map_inst_pkg.scan(  ANCESTORS) 


loop 


—  get  ancestor_id's  merged  ancestor  chain;  note  that  every 

—  chain  will  at  least  have  the  root  operator  (rootid)  as 
~  an  element 

assign(chain,  get_chain(ea)); 

—  for  every  chainelement  in  atomicid's  ancestor  chain  starting 

—  with  the  root  element,  construct  the  composite  component 

—  decomposition  structure  corresponding  to  the  sequence  of 

—  ancestor  chain  elements 

for  chainelement:  psdlid  in  psdl_id_sequence_pkg.scan(chain)  loop 

—  if  the  composite  operator  corresponding  to  the  chain 

—  element  already  exists  in  NEWPSDL,  then  get  it;  note 

—  that  NEWPSDL's  root  operator  has  already  been  created 
if  member(chain_element,  NEWPSDL)  then 

co_node  :=  fetch(NEW_PSDL,  chainelement); 


else 


—  create  a  new  composite  operator  for  chainelement 
conode  :=  makecompositeoperator(chainelement); 

—  make  conode's  parent  operator  ancestornode 
set_parent(co_node,  ancestornode); 

—  add  conode  to  ancestornode's  implementation 

—  graph  vertex  set. 

—  First,  initialize  op_id  op=>operator_name  to 

—  chainelement  name 
set_op_id_operation_name(chain_element,  op); 

—  have  an  opid,  now  add  vertex  for  composite 

—  operator  to  the  parent  graph;  try  to  retrieve 

—  vertext  attributes  from  A,  BASE,  B  entries 

—  fro  the  composite 
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add_composite_vertex(op, 

ancestornode,  A,  BASE,  B); 

—  bind  composite  conode  to  NEWPSDL; 
bind(chain_element,  conode,  NEWPSDL); 
end  if; 

—  conode  becomes  ancestornode  for  next  loop  iteration 

—  or  for  atomicid  when  loop  exits 
ancestor_node:=  conode; 

end  loop; 
recycle(chain); 

—  At  this  point,  the  decomposition  structure  correspoinding  to 

—  atomic_id's  ancestor  chain  is  in  place.  The  next  step  is  to 

—  copy  atomicid's  attributes  from  the  big  root  merged 

~  composite  operator  to  atomic_id's  parent  composite  operator. 

—  get  the  atomic  psdl_component  corresponding  to  atomic_id 

—  from  MERGE 

atomic_op  :=  fetch(MERGE,  atomicid); 

—  create  a  new  operator  from  the  operator  fetched  from  MERGE 
new_atomic_op  :=  make_atomic_operator(psdl_name  =>  name(atomicop), 

ada_name  =>  adaname(atomicop), 
gen_par  =>  generic_parameters(atomic_op), 
keywords  =>  keywords(atomic_op), 
informaldescription  => 

informaldescription(atomicop), 
axioms  =>  axioms(atomicop), 
input  =>  inputs(atomicop), 
output  =>  outputs(atomicop), 
state  =>  states(atomic_op), 
initialization_map  =>  get_init_map(atomic_op), 
exceptions  =>  exceptions(atomic_op), 
specifiedmet  => 
specified_maximum_execution_time(atomic_op)); 

—  atomicop's  parent  =>  ancestornode 
set_parent(new_atomic_op,  ancestor_node); 

—  Create  an  opid  corresponding  to  atomicid  for  use  in  copying 

—  atomic_id's  edges,  timers,  timing  and  control  constraints 

—  from  the  big  root  merged  composite  to  atomicid 

—  parent  composite's  implementation  part 
set_op_id_operation  name(atomic_id,  atomic  op_id); 

—  update  parent's  graph  -  copy  over  any  edges  from  the 

—  big  root  merged  composite  to  atomicopid  parent 

—  graph  for  which  atomicopid  is  ether  a  source  or  a 
--  sink. 

—  First,  get  a  copy  of  the  atomic  operator's  parent's 
--  graph 

assign(ancestor_graph,  graph(ancestornode)); 
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—  copy  the  vertex  and  edges  from  merges  graph  to  ancestorgraph 
copy_vertex_n_edges(atomic_op_id,  mergesgraph,  ancestorgraph); 

—  assign  the  updated  graph  to  ancestornode 
set_graph(ancestor_graph,  ancestornode); 
recycle(ancestorgraph); 

--  update  parent's  timer  ops  -  copy  over  any  timer 

—  operations  corresponding  to  atomicopid  from  the 

—  big  root  merged  composite  to  atomicopid's  parent 
copy_timer_operations(atomic_op_id,  mergesrootop, 

ancestornode); 

—  update  parent's  output  guards,  exception  triggers,  execution 

—  guards,  and  triggers  -  copy  over  any  control  constraints 

—  corresponding  to  atomicopid  from  the  big  root 

—  merged  composite  to  atomicopid's  parent 
copy_control_consrraints(atomic_op_id,  mergesgraph, 

mergesrootop,  ancestornode); 

—  update  parent's  periods,  finished  withins,  minimum  calling 

—  periods,  and  maximum  response  times  -  copy  over  any  timing 

—  constraints  corresponding  to  atomic_op_id  from  the  big 

—  root  merged  composite  to  atomicopid's  parent 
copy_timing_constraints(atomic_op_id,  merges_root_op, 

ancestornode); 

—  bind  new  atomic  operator  to  NEWPSDL; 
bind(atomic_id,  new_atomic_op,  NEWPSDL); 


end  loop; 

recycle(mergesgraph); 

At  this  point,  a  skeletal  decomposition  structure  is  in  place  -  all  of  the 
composite  operators  are  in  place  with  partially  completed  specification 
and  implementation  portions. 

Next,  finish  up  construction  of  the  each  composite  operator  in  NEWPSDL; 
input  edges,  output  edges,  state  edges,  smet's,  exceptions,  initial  states, 
and  other  attributes  will  have  to  be  set  in  each  composite  operator's 
specification  and  implementation  part. 

Starting  with  the  root  operator,  recurse  through  composite  operator  graphs  to 
finish  reconstruction  of  each  composite  operator's  specification  and 
implementation  parts 

--  put(NEWPSDL); 

assign(root_op_graph,  graph(newrootop)); 

finish_composite_operator_construction(graph(new_root_op),  A,  BASE,  B, 

NEWPSDL,  newrootop, 


recycle(rootopgraph); 

—  put_line("leaving  reconstruct_prototype"); 
return  NEW_PSDL; 


newroot  op,  mergesrootop); 
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end  reconstmct_prototype; 

—  procedure  decomposegraph  is  the  interface  to  the  PSDL  prototype 

—  decomposition  recovery  sub-system.  The  first  3  psdl_program  arguments 

—  are  the  pre-expanded  versions  of  PSDL  prototypes  for  change  A,  the  BASE, 

—  and  change  B.  MERGE  is  the  flattened  result  of  the  merge  of  A,  BASE, 

—  and  B.  THE  PSDL  prototype  with  recovered  decomposition  structure  is 
--  returned  in  NEWPSDL. 

procedure  decompose_graph(A_PSDL,  BASEPSDL,  BPSDL,  MERGE:  psdl_program; 

NEWPSDL:  in  out  psdl_program) 
is 

rootop:  psdl_id; 

ancestors:  ancestorchains; 

MERGECHAIN,  ACHAIN,  BASECHAIN,  BCHAIN: 
extendedancestor  :=  nullancestor; 
begin 

ancestor_chains_map_inst_pkg.assign(ancestors,  emptyancestorchains); 
assign(NEWJPSDL,  empty jpsdl_program); 

—  need  the  root  operator  for  findancestorchain. 
rootop  :=  find_root(MERGE); 
—  put_line(convert(root_op)); 

for  id:  psdlid,  c  :  psdlcomponent  in  psdl_program_map_pkg.scan(MERGE)  loop 
if  component_category(c)  =  psdloperator  then 

if  component_granularity(c)  =  atomic  then 
A_CHAIN  :=  findancestor  chain(id,  root_op,  APSDL); 
BASECHAIN  :=  find_ancestor_chain(id,  rootop,  BASEPSDL); 
BCHAIN  :=  find_ancestor_chain(id,  rootop,  BPSDL); 
merge_ancestor_chains(A_CHAiN,  BASECHAIN,  BCHAIN, 

MERGE_CHAIN); 
ancestor_chains_map_inst_pkg.bind(id,  MERGECHAIN,  ancestors); 
end  if; 
end  if; 
end  loop; 

report_conflicts(ancestors); 
resolve_conflicts(ancestors,  rootop); 
put_ancestor_chains(ancestors); 

assign(NEW_PSDL,  reconstruct_prototype(MERGE,  A_PSDL,  BASEPSDL, 

BPSDL,  ancestors)); 
anccslor_chains_map_inst_pkg.recycle(ancestors); 

end  decompose  graph; 

end  decompose_graph_pkg; 
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2.  extendedancestorpkg 

with  textio;  use  textio; 

with  psdl_graph_pkg;  use  psdl_graph_pkg; 

with  psdl_program_pkg;  use  psdl_program_pkg; 

with  psdl_component_pkg;  use  psdl_component_pkg; 

with  psdl_concrete_type_pkg;  use  psdlconcrete  _type_pkg; 

Package  extended_ancestor_pkg  is 

—  Discriminant  for  type  extendedancestorrecord 
type  ancestor_type  is  (proper,  improper); 

—  storage  for  both  "proper"  and  "improper"  ancestor  chains, 
type  extendedancestorrecord 

(ancestor:  ancestortype) 
is  private; 

type  extended_ancestor  is  access  extended_ancestor_record; 

—  "proper"  ancestor  is  an  element  of  the  set  of  all  finite  sequences  partially 

—  ordered  by  the  prefix  ordering  [2].  in  this  implementation,  properancestor  is 

—  a  pointer  to  an  extendedancestorrecord  with  discrimant  "ancestor  =>  proper". 

—  This  subtype  is  used  to  store  an  atomic  operator's  properly  formed  ancestor 

—  chain  as  a  sequence  of  psdlid  names  of  composite  operators. 

subtype  proper_ancestor  is  extended_ancestor( ancestor  =>  proper); 

—  "improper"  ancestor  is  an  improper  data  element  representing  a  least  upper 

—  bound  for  a  set  of  incomparable  "proper"  elements  in  the  extended  ancestor 

—  lattice,  used  to  represent  merging  conflicts  [2]  ].  in  this  implementation, 

—  improperancestor  is  a  pointer  to  an  extendedancestorrecord  with  discrimant 

—  "ancestor  =>  improper".  This  subtype  is  used  to  store  conflicting 

--  proper  ancestor  chains  for  subsequent  conflict  reporting  and  resolution. 

subtype  improperancestor  is  extended_ancestor(ancestor  =>improper); 
nullancestor:  constant  extendedancestor  :=  null; 
empty_extended_ancestor:  extendedancestor; 

—  raised  when  nullancestor  is  unexpectedly  encountered, 
undefinedancestor:  exception; 

—  raised  when  an  undefined  ancestor  chainis  unexpectedly  encountered, 
undefinedancestorchain:  exception; 

—  raised  when  comparison  of  an  improper-to-proper  ancestor  is  unexpectedly 

—  attempted 
ancestortypemismatch:  exception; 

—  returns  an  extendedancestor's  discriminant:  "proper"  or  "improper" 
function  type_of_ancestor(ea:  extendedancestor)  return  ancestortype; 
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—  returns  a  proper  ancestor  with  an  empty  ancestor  chain 
function  empty_ancestor  return  properancestor; 

—  appends  a  component's  psdl_id  name  to  an  ancestor  chain 

—  procedure  append_ancestor(ea:  in  out  extended_ancestor;  ancestorid:  psdl_id); 
procedure  append_ancestor(ea:  extended_ancestor;  ancestorid:  psdlid); 

—  assigns  the  ancestor  chain  of  one  properancestor  to  another;  recycles  the 

—  assignee's  existing  ancestor  chain  prior  to  new  assignment 

procedure  assign_chain(ea_l:  in  out  properancestor;  ea_2:  properancestor); 

—  assigns  an  ancestor  chain  to  a  properancestor;  recycles  the  assignee's 

—  existing  ancestor  chain  prior  to  new  assignment 

procedure  assign_chain(ea:  in  out  properancestor;  chain:  psdlidsequence); 

—  returns  a  proper  ancestor  initialized  to  the  supplied  ancestor  chain  sequence 
function  buildjproper_ancestor(ea_chain:  psdlidsequence) 

return  proper_ancestor; 

—  returns  an  improper  ancestor  initialized  to  the  supplied  ancestor  chain 

—  sequences 

function  build_improper_ancestor(a_chain,  base_chain,  bchain: 

psdlidsequence)  return  improperancestor; 

—  determine  where  the  merge  conflicts  occurred  and  output  an  informative 

—  message  detailing  the  conflict  in  reasonable  depth.  (This  is  a  first  cut  just 

—  to  have  something  in  place.  The  plan  is  to  revisit  once  more  general  things 

—  are  accomplished.) 

procedure  put_conflict_message(N:  psdlid;  ia:  improper_ancestor); 


—  determine  where  the  merge  conflicts  occurred,  resolve  the  conflict,  and 

—  return  the  resolved  ancestor  chain  as  s  properancestor 

function  resolve_conflict(ia:  improperancestor)  return  properancestor; 

—  return  True  if  the  first  chain  argument  is  a  prefix  of  the  second;  False  otherwise 
function  is_prefix_of(ea_l,  ea_2:  extended_ancestor)  return  boolean; 

—  return  True  if  the  first  chain  argument  is  a  prefix  of  the  second;  False  otherwise 
function  is_prefix_of(chain_l,  chain_2:  psdl_id_sequence)  return  boolean; 

—  determines  equality  for  both  properancestor's  and  improperancestor's 
function  eq(ea_l,  ea_2:  extendedancestor)  return  boolean; 

—  intersection  operation  for  extendedancestor;  returns  the  result  in  a  newly 
--  allocated  extended_ancestor_record 

function  intersection(ea_l,  ea_2:  extendedancestor)  return  extendedancestor; 

—  intersection  operation  for  ancestor  chains  (psdl_id_sequence);  returns  the  result 

—  in  a  new  psdl_id_sequence 

function  intersection(chain_l,  chain_2:  psdlidsequence)  return  psdlidsequence; 
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—  The  union  operation  for  extendedancestor;  return  a  new 

—  extendedancestor  if  the  union  was  successful;  otherwise,  return 

—  null  extendedancestor. 

function  union(ea_l,  ea_2:  extendedancestor)  return  extendedancestor; 

--  The  union  operation  for  ancestor  chain  sequences;  return  a  new 

--  psdlidsequence  ancestor  chain  if  the  union  was  successful;  otherwise,  return 

—  conflict  =  True  if  the  union  could  not  be  formed. 

procedure  union(chain_l,  chain_2:  psdlidsequence;  result:  in  out 
psdl_id_sequence;  conflict:  in  out  boolean); 

~  The  Brouwerian  Algebra  pseudo-difference  operation  as  defined  on  the 

—  Extended  Ancestor  Lattice 

function  pseudo_difference(ea_l,  ea_2:  extendedancestor)  return  extended_ancestor; 

—  The  Brouwerian  Algebra  pseudo-difference  operation  as  defined  on  the 

—  Extended  Ancestor  Lattice 

function  pseudo_difference(chain_l,  chain_2:  psdlidsequence) 
return  psdl_id_sequence; 

—  returns  the  greatest  common  prefix  of  2  ancestor  chain  sequences 
function  greatest_common_prefix(chain_l,  chain_2:  psdlidsequence) 
return  psdlidsequence; 

—  recycle  storage  for  proper  or  improper  extended_ancestor_records 
procedure  recycle_extended_ancestor(ea:  in  out  extendedancestor); 

—  get  the  psdlid  identifier  of  a  component's  ancestor 

function  get_ancestor(id:  psdlid;  p:  psdl_program)  return  psdlid; 

—  return,  as  a  proper  ancestor,  the  greatest  lower  bound  (least  common  prefix)  for 

—  the  conflicting  chains  of  the  improper 

function  get_greatest_lower_bound(ea:  improperancestor) 
return  proper_ancestor; 

—  return  a  proper  ancestor's  psdl_id_sequence  ancestor  chain 
function  get_chain(ea:  extendedancestor)  return  psdl_id_sequence; 

procedure  put_chain(  chain:  psdl_id_sequence;  add_cr:  Boolean); 

procedure  put_ancestor(ea:  extended_ancestor); 

private 

type  extended_ancestor_record(  ancestor:  ancestortype) 
is  record 

case  ancestor  is 

when  proper  => 

chain:  psdl_id_sequence; 
when  improper  => 

chainA:  psdlidsequence; 
chainBASE:  psdlidsequence; 
chainB:  psdlidsequence; 
end  case; 
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end  record; 
end  extended_ancestor_pkg; 

package  body  extended_ancestor_pkg 
is 

—  returns  an  extendedancestor's  descriminant:  "proper"  or  "improper" 
function  type_of_ancestor(ea:  extendedancestor)  return  ancestortype 
is 

begin 

if  ea  =  nullancestor  then  raise  undefmedancestor;  end  if; 

return  ea. ancestor; 
end  type_of_ancestor; 

—  returns  a  proper  ancestor  with  and  empty  ancestor  chain 
function  empty  ancestor  return  properancestor 

is 

result:  proper_ancestor; 
begin 

—  result  :=  build_proper_ancestor(psdl_id_seq_inst_pkg. empty); 

result  :=  build_proper_ancestor(empty); 

return  result; 
end  emptyancestor; 

—  appends  an  ancestor  to  an  extendedancestor's  ancestor  chain 

—  procedure  append_ancestor(ea:  in  out  extended_ancestor;  ancestor_id:  psdl_id) 
procedure  append_ancestor(ea:  extended_ancestor;  ancestor_id:  psdl_id) 

is 
begin 

if  ea  =  nullancestor  then  raise  undefmedancestor;  end  if; 

assign(ea. chain,  add(ancestor_id,  ea. chain)); 
end  appendancestor; 

—  assigns  the  ancestor  chain  of  one  properancestor  to  another;  recycles  the 

—  assignee's  existing  ancestor  chain  prior  to  new  assignment 

procedure  assign_chain(ea_l:  in  out  properancestor;  ea_2:  properancestor) 

is 

begin 

if  ea_l  =  null_ancestor  or  ea_2  =  nullancestor  then 
raise  undefined_ancestor; 

end  if; 

assign(ea_l. chain,  ea_2. chain); 
end  assignchain; 

—  assigns  an  ancestor  chain  to  a  properancestor;  recycles  the  assignee's 

—  existing  ancestor  chain  prior  to  new  assignment 

procedure  assign_chain(ea:  in  out  properancestor;  chain:  psdlidsequence) 

is 

begin 

if  ea  =  nullancestor  then  raise  undefined  ancestor;  end  if; 

assign(ea. chain,  chain); 
end  assign_chain; 
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—  returns  a  proper  ancestor  initialized  to  the  supplied  ancestor  chain  sequence 
function  build_proper_ancestor(ea_chain:  psdlidsequence) 

return  properancestor 
is 

pa:  properancestor; 
begin 

pa  :=  new  extended_ancestor_record(ancestor  =>  proper); 

assign(pa. chain,  eachain); 

return  pa; 
end  build  j>roper_ancestor; 

—  returns  an  improper  ancestor  initialized  to  the  supplied  ancestor  chain 

—  sequences 

function  build_improper_ancestor(a_chain,  basechain,  bchain:  psdlidsequence) 

return  improper_ancestor 

is 

ia:  improperancestor; 
begin 

ia  :=  new  extended_ancestor_record( ancestor  =>  improper); 

assign(ia.chain_A,  achain); 

assign(ia.chain_BASE,  base  chain); 

assign(ia.chain_B,  bchain); 
return  ia; 
end  buildimproperancestor; 

function  is_prefix_of(ea_l,  ea_2:  extended_ancestor)  return  boolean 

is 

begin 

return  (is_prefix_of(ea_l. chain,  ea_2. chain)); 

end  is_prefix_of; 

—  return  True  if  the  first  chain  argument  is  a  prefix  of  the  second;  False  otherwise 
function  is_prefix_of(chain   1 ,  chain_2:  psdl_id_sequence) 

return  boolean 
is 

lengthchainl:  natural; 

length_chain_2:  natural; 

chain_2_prefix:  psdl_id_sequence; 

is_prefix:  Boolean  :=  False; 


begin 


—  empty  chain  is  prefix  of  all  chains 

if  equal(chain_l,  empty)  then  return  True;  end  if; 

lengthchainl  :=  length(chain_l); 
length_chain_2 :  =  length(chain_2 ) ; 

—  first,  check  the  lengths  of  the  chains 

if  lengthchainl  >  length_chain_2  then  —  can't  be  prefix  of  shorter  chain 

is_prefix  :=  False; 
else 

assign(chain_2_prefix,  empty); 

fetch(chain_2,  1,  length_chain_l,  chain_2_prefix); 

--  put_line("is_prefix_of  CHAINS"); 
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—  put_chain(chain_2_prefix,  True); 

—  put_chain(chain_l,  True); 

if  equal(chain_l,  chain_2_prefix)  then 

is_prefix  :=  True; 
else 

is_prefix  :=  False; 
end  if; 

recycle(chain_2j>refix); 
end  if; 

return  is_prefix; 

end  is_prefix_of; 

—  determines  equality  for  both  properancestor's  and  improper_ancestor's 
function  eq(ea_l,  ea_2:  extended_ancestor) 

return  boolean 

is 

begin 

if  ea_l  =  nullancestor  or  ea_2  =  null_ancestor  then 

raise  undefined_ancestor; 
end  if; 

if  type_of_ancestor(ea_l)  =  type_of_ancestor(ea_2)  then 
if  type_of_ancestor(ea_l)  =  proper  then 

if  equal(ea_l. chain,  ea_2. chain)  then 

return  True; 
else 

return  False; 
end  if; 
else  —  improper  ancestor 

if  equal(ea_l  .chainA,  ea_2.chain_A) 

and  equal(ea_l.chain_BASE,  ea_2.chain_BASE) 

and  equal(ea_l.chain_B,  ea_2.chain_B)  then 

return  True; 
else 

return  False; 
end  if; 
end  if; 
else 

raise  ancestor_type_mismatch; 
end  if; 
end  eq; 

—  recycle  storage  for  proper  or  improper  extended_ancestor_records 
procedure  recycle_extended_ancestor(ea:  in  out  extendedancestor) 
is 

begin 

if  ea  =  nullancestor  then  raise  undefined_ancestor;  end  if; 
if  type_of_ancestor(ea)  =  proper  then 

recycle(ea.  chain); 
else 

recycle(ea.chain_A); 

recycle(ea.chainBASE); 
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recycle(ea.chainB); 
end  if; 

ea  :=  nullancestor; 
end  recycleextendedancestor; 

—  get  die  psdlid  identifier  of  a  component's  ancestor 
function  get_ancestor(id:  psdlid;  p:  psdl_program) 
return  psdlid 

is 
begin 

return  (name(parent(fetch(p,  id)))); 
end  get_ancestor; 

—  return  a  proper  ancestor's  psdlidsequence  ancestor  chain 
function  get_chain(ea:  extendedancestor) 

return  psdl_id_sequence 

is 

begin 

if  ea  =  null_ancestor  then  raise  undefined_ancestor;  end  if; 
if  typeofancestor(ea)  =  proper  then 

return  ea. chain; 
else 

raise  ancestor_type_mismatch; 
end  if; 

end  get_chain; 

procedure  put_chain(  chain:  psdlidsequence;  add_cr:  Boolean) 
is 

low,  high:  natural; 
begin 

low  :=  1; 

high  :=  length(chain); 

ifhigh>Othen 

for  i  in  low  . .  high 
loop 

put(convert(fetch(chain,  i))); 
if  i  /=  high  then  put("->");  end  if; 
end  loop; 
else 

put("EMPTY  CHAIN"); 
end  if; 

—  add  a  carriage  return 
if  adder  then  put_line("");  end  if; 
end  putchain; 

procedure  put_ancestor(ea:  extendedancestor) 

is 

begin 

if  ea  =  nullancestor  then  raise  undefinedancestor;  end  if; 

if  typeofancestor(ea)  =  proper  then 

put_chain(ea. chain,  True); 
else 
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put_line( "  *  *  *  IMPROPER  ANCESTOR*  **  "); 
put("A:     "); 

put_chain(ea.chain_A,  True); 
put("BASE:  "); 

put_chain(ea.chain_BASE,  True); 
put("B:     "); 

put_chain(ea.chain_B,  True); 
end  if; 
end  putancestor; 


—  returns  the  greatest  common  prefix  of  2  ancestor  chain  sequences 
function  greatest_common_prefix(chain_l,  chainJZ:  psdlidsequence) 
return  psdl_id_sequence 
is 

lengthchainl:  natural  :=  length(chainl); 

length_chain_2:  natural  :=  length(cham_2); 

comparelimit:  natural; 

result:  psdMdsequence; 

I:  natural  :=  1; 

elements  match:  Boolean  :=  True; 


begin 


assign(result,  empty); 

—  first,  set  the  range  for  chain  element  comparison 
if  length_chain_l  >  length_chain_2  then 

comparelimit  :=  length_chain_2; 
else 

compare_limit  :=  length_chain_l; 
end  if; 

—  extract  the  greatest  common  prefix  and  store  it  in  "result" 
while  I  <=  comparelimit  and  elementsmatch  loop 

if  eq(fetch(chain_l,  I),  fetch(chain_2, 1))  then 

assign( result,  add(fetch(chain_l,  I),  result)); 
I  :=I+1: 


else 


elements_match  :=  False; 


end  if; 
end  loop; 
return  result; 
end  greatest_common_prefix; 


—  intersection  operation  for  extendedancestor;  returns  the  result  in  a  newly 

—  allocated  extended_ancestor_record;  greatest  lower  bounds  are  set  intersections  for 

—  extended  ancestor  lattice 

function  intersection(ea_l,  ea_2:  extended_ancestor)  return  extendedancestor 
is 

result:  extendedancestor  :=  null_ancestor; 
begin 

if  ea_l  =  nullancestor  or  ea_2  =  nullancestor  then 
raise  undefinedancestor; 

end  if; 
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if  is_prefix_of(get_chain(ea   1),  get_chain(ea_2))  then 

—  put_line("is_prefix_of(get_chain(ea_l),  get_chain(ea_2)"); 

result  :=  build_proper_ancestor(get_chain(ea_l)); 
elsif  is_prefix_of(get_chain(ea_2),  getchain(eal))  then 

result  :=  build_proper_ancestor(get_chain(ea_2)); 
else 

result  :=  build_proper_ancestor( 

greatest_common_prefix(get_chain(ea_2),  get_chain(ea_l ))); 


end  if; 

return  result; 
end  intersection; 


—  The  Brouwerian  Algebra  pseudo-difference  operation  as  defined  on  the 

—  Extended  Ancestor  Lattice 

function  pseudo_difference(ea_l,  ea_2:  extendedancestor)  return  extendedancestor 
is 

result:  extendedancestor  :=  nullancestor; 
begin 

if  eal  =  nullancestor  or  ea_2  =  nullancestor  then 
raise  undefinedancestor; 

end  if; 

if  is_prefix_of(ea_l,  ea_2)  then 

result  :=  build_proper_ancestor( empty); 
else 

result  :=  build_proper_ancestor(get_chain(ea_l)); 
end  if; 

return  result; 
end  pseudodifference; 


—  The  union  operation  for  extendedancestor;  return  a  new 

—  extendedancestor  if  the  union  was  successful;  otherwise,  return 

—  null  extendedancestor. 

function  union(ea_l,  ea_2:  extendedancestor)  return  extended_ancestor 
is 

result:  extendedancestor  :=  nullancestor; 
begin 

if  ea_l  =  nullancestor  or  ea_2  =  null_ancestor  then 
raise  undefinedancestor; 

end  if; 

if  eq(ea_l,  emptyextendedancestor)  then 

result  :=  build_proper_ancestor(get_chain(ea_2)); 
elsif  eq(ea_2,  empty _extended_ancestor)  then 

result  :=  build_proper_ancestor(get_chain(ea_l)); 
elsif  is_p re fix_of(ea_l,  ea_2)  then 

result  :=  build_proper_ancestor(get_chain(ea_2)); 
elsif  is  _prefix_of(ea_2,  eal)  then 

result  :=  build_proper_ancestor(get_chain(ea_l)); 
else  —  conflict;  indicate  by  returning  nullancestor 

result  :=  null_ancestor; 
end  if; 
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return  result; 
end  union; 


—  return,  as  a  proper  ancestor,  the  greatest  lower  bound  (greatest  common  prefix)  for 

—  the  conflicting  chains  of  the  improper 

function  get_greatest_lower_bound(ea:  improper_ancestor) 

return  properancestor 

is 

result:  properancestor; 

chainl,  chain_2:  psdlidsequence; 
begin 

if  ea  =  nullancestor  then  raise  undefinedancestor;  end  if; 

assign(chain_l,  empty); 

assign(chain_2,  empty); 

assign(chain_l ,  greatest_common_prefix(ea.chain_A,  ea.chainBASE)); 

assign(chain_2,  greatest_common_prefix(chain_l,  ea.chain_B)); 

result  :=  build_proper_ancestor(chain_2); 

recycle(chainl); 
recycle(chain_2); 

return  result; 
end  get_greatest_lower_bound; 


—  intersection  operation  for  ancestor  chains  (psdlidsequence);  returns  the  result 

—  in  a  new  psdlidsequence 

function  intersection  chainl,  chain_2:  psdl_id_sequence) 

return  psdl_id_sequence 

is 

result:  psdlidsequence; 
begin 

assign(result,  empty); 

if  is_prefix_of(chain_l,  chain_2)  then 
assign(  result,  chainl); 

elsif  is_prefix_of(chain_2,  chain_l)  then 
assign(result,  chain_2); 

else 

assign(result,  greatest_common_prefix(chain_2,  chain_l)); 

end  if; 

return  result; 
end  intersection; 


—  The  union  operation  for  ancestor  chain  sequences;  return  a  new 

--  psdl_id_sequence  ancestor  chain  if  the  union  was  successful;  otherwise,  return 

—  conflict  =  True  if  the  union  could  not  be  formed, 
procedure  union(cham_l,  chain_2:  psdlidsequence; 

result:  in  out  psdlidsequence; 
conflict:  in  out  boolean) 
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IS 

begin 

conflict  :=  False; 

if  is_prefix_of(chain_l,  chain_2)  then 

assign(result,  chain_2); 
elsif  is_prefix_of(chain_2,  chainl)  then 

assign(result,  chainl); 
else  —  conflict;  indicate  by  returning  conflict  =  True 

conflict  :=  True; 
end  if; 
end  union; 


—  The  Brouwerian  Algebra  pseudo-difference  operation  as  defined  on  the 

—  Extended  Ancestor  Lattice 

function  pseudo_difference(chain_l,  chain_2:  psdlidsequence) 

return  psdlidsequence 

is 

result:  psdlidsequence; 
begin 

assign(result,  empty); 

if  not  is_prefix_of(chain_l,  chain_2)  then 
assign(result,  chainl); 

end  if; 

return  result; 
end  pseudodifference; 


procedure  put_conflict_message(N:  psdlid;  ia:  improper_ancestor) 
is 

lcp,  term  1,  union_term,  uniontermimp, 

a_pseudodiff_base,  aintersectionb, 

b_pseudodiff_base,  b_pseudodiff_base_imp:  psdlidsequence; 

lcplen:  natural  :=  0; 

conflict:  Boolean  :=  False; 

if  ia  =  nullancestor  then  raise  undefined_ancestor;  end  if; 


begin 


assign(a_pseudodiff_base,  empty); 
assign(a_intersection_b,  empty); 
assign(b_pseudodiff_base,  empty); 
assign(union_term,  empty); 
assign(b_pseudodiff_base_imp,  empty); 
assign(union_term_imp,  empty); 
assign(lcp,  empty); 

—  reconstruct  the  3  terms  from  the  conflicting  merge 

assign(a_pseudodiff_base,  pseudo_difference(ia.chain_A,  ia.chainBASE)); 
assign(a_intersection_b,  intersection(ia.chain_A,  ia.chainB)); 
assign(b_pseudodiff_base,  pseudo_difference(ia.chain_B,  ia.chainBASE)); 

—  output  the  common  part  of  the  conflict  message 
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putfONE  OR  MORE  CONFLICTS  IN  ANCESTOR  CHAIN  RECOVERY  FOR:  "); 

put_line(convert(N)); 

put("<");  put_chain(ia.chain_A,  False);  put_lme(">"); 
put("[<");  put_chain(ia.chain_BASE,  False);  put_line(">]"); 
put("<");  put_chain(ia.chain_b,  False);  put_line(">  ="); 

umon(a_pseudodiff_base,  aintersectionb,  unionterm,  conflict); 

—  find  the  proper  elements  of  the  2  conflicting  terms 

assign(lcp,  greatest_common_prefix(union_term,  b_pseudodiff_base)); 

—  find  the  improper  elements  of  the  2  confliction  terms 
lcplen  :=  length(lcp); 

fetch(b_pseudodiff_base,  lcp_len+l,  length(b_pseudodiff_base), 

b_pseudodiff_base_imp) ; 
fetch(union_term,  lcp_len+l,  length(unionterm), 
umon_term_imp); 

put("<");  put_chain(b_pseudodiff_base,  False); 

put(">");  put_hne("  U  "); 

put("<");  put_chain(union_term,  False); 

put_line(">="); 

put_line("(***conflict***)  =  "); 

put("<");  put_chain(lcp,  False); 

put("(");  put_chain(b_pseudodiff_base_imp,  False); 

put("U"); 

put_chain(union_term_imp,  False);  put_line(")>"); 

put_line(""); 

recycle  (a_pseudodiff_base); 
recycle  (a_intersection_b); 
recycle  (b_pseudodiff_base); 
recycle  (union_term); 
recycle  (b_pseudodiff_base_imp); 
recycle  (uniontermimp); 
recycle  (lcp); 
end  put_conflict_message; 


—  determine  where  the  merge  conflicts  occurred,  resolve  the  conflict,  and 

—  return  the  resolved  ancestor  chain  as  s  proper_ancestor 

function  resolve_confhct(ia:  improperancestor)  return  properancestor 
is 

lcp,  union_term,  a_pseudodiff_base, 

a_intersection_b,  b_pseudodiff_base:  psdlidsequence; 

conflict:  Boolean  :=  False; 

resolvedcham:  properancestor; 
begin 

if  ia  =  null  ancestor  then  raise  undefined  ancestor;  end  if; 


107 


assign(a_pseudodiff_base,  empty); 
assign(a_intersection_b,  empty); 
assign(b_pseudodiff_base,  empty); 
assign(union_term,  empty); 
assign(lcp,  empty); 

—  reconstruct  the  3  terms  from  the  conflicting  merge 

assign(a_pseudodiff_base,  pseudo_difference(ia.chain_A,  ia.chainBASE)); 
assign(a_intersection_b,  intersection(ia.chain_A,  ia.chainB)); 
assign(b_pseudodiff_base,  pseudo_difference(ia.chain_B,  ia.chainBASE)); 

—  reapply  the  union  operation  to  determine  which  terms  conflict,  and  try  to 

—  reduce  to  two  conflict  terms  given  that  the  union  operation  is  commutative. 

—  first,  try  to  reduce  the  terms  of  first  union  operation  of  the  merge. 
union(a_pseudodiff_base,  a_intersection_b,  unionterm,  conflict); 

—  find  the  proper  elements  of  the  2  conflicting  terms 

—  unionterm  =  a_pseudodiff_base  U  aintersectionb 

assign(lcp,  greatest_common_prefix(union_term,  b_pseudodiff_base)); 

resolvedchain  :=  build_proper_ancestor(lcp); 

recycle  (a_pseudodiff_base); 
recycle  (aintersectionb); 
recycle  (b_pseudodiff_base); 
recycle  (union  term); 
recycle  (lcp); 

return  resolvedchain; 

end  resolve  conflict; 


begin 

empty_extended_ancestor  :=  build_proper_ancestor( empty); 
end  extended_ancestor_pkg; 
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3.  reconstruct_prototype_utilities_pkg 

with  text_io;  use  textio; 

with  System; 

with  expression_pkg;  use  expression_pkg; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 

with  psdl_component_pkg;  use  psdl_component_pkg; 

with  psdl_graph_pkg;  use  psdl_graph_pkg; 

with  psdl_program_pkg;  use  psdl_program_pkg; 

package  reconstruct_prototype_utilities_pkg  is 

—  create  a  composite  vertex  and  add  it  to  co's  graph.  The  vertex 

—  attributes  are  merged  from  the  corresponding  attributes  in 

—  the  un-expanded  prototypes  A,  BASE,  and  B. 

procedure  add_composite_vertex(v:  op_id;  co:  in  out  compositeoperator; 

A,  BASE,  B:  psdl_program); 

—  update  composite  operator's  states,  axioms,  informal  description,  and 

—  implementation  descriptions  by  attempting  a  merge  of  original 

—  composite  operators  from  the  BASE,  CHANGE  A,  and  CHANGE  B  psdl_programs. 
procedure  merge_composite_elements(A,  BASE,  B:  in  psdl_program; 

co:  in  out  compositeoperator); 

—  recurse  through  composite  operator  graphs  to  finish  reconstruction  of  composite 

—  operators'  specification  and  implementation  graphs 
procedure  finish_composite  operator_construction(gr:  psdlgraph; 

A,  BASE,  B,  NEWPSDL:  psdl_program; 

co,  newrootco,  mergedrootco:  psdlcomponent); 

—  copy  operator's  timing  constraints  (period,  fw,  mcp,  mrt)  from  one  composite  operator 

—  to  another 

procedure  copy_timing_constraints(operator_id:  opid;  fromop:  compositeoperator; 

toop:  in  out  compositeoperator); 

—  copy  operator's  control  constraints  (triggers,  execution  guards,  output  guards,  and 

—  exception  triggers)  from  one  composite  operator  to  another 
procedure  copy_control_constraints(operator_id:  opid;  gr:  psdl_graph; 

fromop:  compositeoperator;  toop:  in  out  compositeoperator); 

—  copy  operator  and  corresponding  edges  from  one  psdl_graph  operator  to  another 

procedure  copy_vertex_n_edges(op:  op_id;  from_graph:  psdl_graph;  to_graph:  in  out  psdlgraph); 

—  set  the  op_id  argument's  operationname  field  to  the  psdlid  argument 
procedure  set_op_id_operation_name(id:  psdlid;  op:in  out  opid); 

procedure  copy_timer_operations(op:  opid;  tonode:  in  out  compositeoperator; 

fromnode:  compositeoperator); 

end  reconstruct_prototype_utilities_pkg; 

package  body  reconstruct_prototype_utilities_pkg  is 
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—  Taken  from  Dampier's  dissertation 

function  merge_types(t_base,  t_a,  t_b:  typename)  return  typename 

is 

begin 

if  equal(t_base,  t_a) 
then 

if  equal(t_base,  t_b) 
then 

return(t_base); 
else 

return(tb); 
end  if; 
else 

if  equal(t_base,  t_b) 
then 

retum(ta); 
else 

if  equal(t_a,  t_b) 
then 

return(t_a); 
else 

return  null_type; 
end  if; 
end  if; 
end  if; 

end  mergetypes; 

—  This  procedure  recovers  output  stream  type  names 

—  from  composite  operators  from  origanal  A,  BASE,  and  B 

—  prototypes  for  use  in  the  post-merge  —  reconstruction 

—  of  composite  operators  during  decomposition  recovery. 

—  It  is  necessary  to  go  the  original  A,  BASE,  and  B 

—  prototypes  to  get  the  output  stream  type  names  given  that  they 

—  are  lost  in  the  pre-merge  flattening  process  and  thus  are 

—  absent  from  the  flattened  merged  prototype. 

procedure  merge_output_stream_type_names(merged_type_name:  in  out  typename; 

id,  streamname:  psdlid; 
A,  BASE,  B:  psdl_program) 


is 


begin 


aname,  basename,  bname:  typename  :=  nulltype; 
op:  compositeoperator; 


if  member(id,  A)  then 

op  :=  fetch(A,  id); 

if  member(stream_name,  outputs(op))  then 

a_name  :=  type_of(stream_name,  op); 

end  if; 
end  if; 

if  member(id,  BASE)  then 

op  :=  fetch(BASE,  id); 
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if  member(stream_name,  outputs(op))  then 

basename  :=  type_of(streamjiame,  op); 
end  if; 
end  if; 

if  member(id,  B)  then 

op  :=  fetch(B,  id); 

if  member(stream_name,  outputs(op))  then 

bname  :=  type_of(stream_name,  op); 

end  if; 
end  if; 

merged_type_name  :=  merge_types(base_name,  aname,  bname); 

end  merge_output_stream_type_names; 

—  This  procedure  recovers  input  stream  type  names 

—  from  composite  operators  from  origanal  A,  BASE,  and  B 

—  prototypes  for  use  in  the  post-merge  —  reconstruction 

—  of  composite  operators  during  decomposition  recovery. 

—  It  is  necessary  to  go  the  original  A,  BASE,  and  B 

—  prototypes  to  get  the  input  stream  type  names  given  that  they 

—  are  lost  in  the  pre-merge  flattening  process  and  thus  are 

—  absent  from  the  flattened  merged  prototype. 

procedure  merge_input_stream_type_names(merged_type_name:  in  out  type_name; 

id,  streamname:  psdl_id; 
A,  BASE,  B:  psdl_program) 


is 


begin 


aname,  basename,  bname:  type_name  :=  nulltype; 
op:  compositeoperator; 


if  member(id,  A)  then 

op  :=  fetch(A,  id); 

if  member(stream_name,  inputs(op))  then 

aname  :=  type_of(stream_name,  op); 

end  if; 
end  if; 

if  member(id,  BASE)  then 

op  :=  fetch(BASE,  id); 

if  member(stream_name,  inputs(op))  then 

base_name  :=  type_of(stream_name,  op); 

end  if; 
end  if; 

if  member(id,  B)  then 

op  :=  fetch(B,  id); 

if  member(stream_name,  inputs(op))  then 

bname  :=  type_of(stream_name,  op); 

end  if; 
end  if; 
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merged_Jype_name  :=  merge_types(base_name,  aname,  bname); 
end  merge_input_stream  typenames; 

—  This  procedure  recovers  mets  and  vertex  properties 

—  from  composite  operators  from  origanl  A,  BASE,  and  B 

—  prototypes  for  use  in  the  post-merge  —  reconstruction 

—  of  composite  operators  during  decomposition  recovery. 

—  It  is  necessary  to  go  the  original  A,  BASE,  and  B 

—  prototypes  to  get  the  vertex  attributes  given  that  they 

—  are  lost  in  the  pre-merge  flattening  process  and  thus  are 

—  absent  from  the  flattened  merged  prototype. 

procedure  merge_vertex_attributes(merged_met:  in  out  millisec; 

vertex_properties:  in  out  init_map; 
op:  opid;  coname:  psdlid; 
A,  BASE,  B:  psdl_program) 


is 


begin 


agraph,  base_graph,  b_graph:  psdl_graph; 

a_diff_base,  bdiffbase,  a_int_b, 

amet,  basemet,  b_met:  millisec  :=  undefined_time; 


assign(a_graph,  empty_psdl_graph); 
assign(base_graph,  empty  _psdl_graph); 
assign(b_graph,  empty_psdl_graph); 

if  member(co_name,  A)  then 

assign(a_graph,  graph(fetch(A,  coname))); 

if  has_vertex(op,  agraph)  then 

amet  :=  maximum_execution_time(op,  agraph); 

end  if; 
end  if; 

if  member(co_name,  BASE)  then 

assign(base_graph,  graph(fetch(BASE,  coname))); 

if  has_vertex(op,  basegraph)  then 

basemet  :=  maximum_execution_time(op,  basegraph); 

end  if; 
end  if; 

if  member(co_name,  B)  then 

assign(b_graph,  graph(fetch(B,  co_name))); 

if  has_vertex(op,  b_graph)  then 

b_met  :=  maximum_execution_time(op,  bgraph); 

end  if; 
end  if; 


Taken  from  Dampier's  dissertation 
if  amet  <=  bmet  then 

a_int_b  :=  b  met; 


else 


a  int  b  :=  a  met; 
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end  if; 

if  base_met  <=  a_met 

—  then  adiffbase  :=  system.maxint; 
then 

adiffbase  :=  undefined_time; 
else 

a_diff_base  :=  amet; 
end  if; 

if  basemet  <=  b_met 

—  then  b_diff_base  :=  system.max_int; 

then 

b_diff_base  :=  undefinedtime; 
else 

b_diff_base  :=  bmet; 
end  if; 

if  a_diff_base  <=  a_int_b  then 

if  adiffbase  <=  bdiffbase  then 

merged_met  :=  adiffbase; 
else 

mergedmet  :=  b_diff_base; 
end  if; 


else 


if  aintb  <=  bdiffbase  then 

merged_met  :=  a_int_b; 

else 

mergedmet  :=  bdiffbase; 

end  if; 


end  if; 


—  Now,  based  on  which  prototype  the  met  was  recovered  from,  get 

—  the  corresponding  vertex_property  imt_map. 

if  merged_met  =  basemet  and  has_vertex(op,  base_graph)  then 
assign(  vertex  jproperties, 

get_properties(op,  basegraph)); 
elsif  merged_met  =  a_met  and  has_vertex(op,  a_graph)  then 
assign(vertex_properties, 

get_properties(op,  agraph)); 
elsif  merged_met  =  bmet  and  has_vertex(op,  b_graph)  then 
assign(vertex_properties, 

get_properties(op,  b_graph)); 
else 

assign(vertex_properties,  empty  initmap); 
end  if; 

recycle(a_graph); 

recycle(base_graph); 

recycle(bgraph); 
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begin 


end  merge_vertex_attributes; 

~  create  a  composite  vertex  and  add  it  to  co's  graph.  The  vertex 

—  attributes  are  merged  from  the  corresponding  attributes  in 

—  the  un-expanded  prototypes  A,  BASE,  and  B. 

procedure  add_composite_vertex(v:  opid;  co:  in  out  compositeoperator; 

A,  BASE,  B:  psdl_program) 
is 

cograph:  psdlgraph; 

op:  psdlcomponent; 

vertex_properties:  init_map; 

mergedmet:  millisec  :=  undefinedtime; 

assign(co_graph,  graph(co)); 
assign(vertex_properties,  emptyinitmap); 

merge_vertex_attributes(merged_met,  vertex_properties,  v,  name(co), 

A,  BASE,  B); 

set_graph(add_vertex(v,  cograph,  mergedmet,  vertex_properties),  co); 

recy  cle(  co_graph) ; 

end  add_composite_vertex; 


—  This  procedure  recovers  latencies  and  edge  properties 

—  from  composite  operators  from  origanl  A,  BASE,  and  B 

—  prototypes  for  use  in  the  post-merge  —  reconstruction 

—  of  composite  operators  during  decomposition  recovery. 

—  It  is  necessary  to  go  the  original  A,  BASE,  and  B 

—  prototypes  to  get  the  edge  attributes  given  that  they 

—  are  lost  in  the  pre-merge  flattening  process  and  thus  are 

—  absent  from  the  flattened  merged  prototype. 

procedure  merge_edge_attributes(merged_latency:  in  out  millisec; 

streams_properties:  in  out  initmap; 
source,  sink:  opid; 
streamname,  coname:  psdlid; 
A,  BASE,  B:  psdl_program) 


is 


begin 


a_graph,  basegraph,  bgraph:  psdlgraph; 

alatency,  baselatency,  b_latency:  millisec  :=  undefinedtime; 


assign(a_graph,  empty _psdl_graph); 
assign(base_graph,  empty_psdl_graph); 
assign(b_graph,  empty _psdl_graph); 

if  member(co_name,  A)  then 

assign(a_graph,  graph(fetch(A,  coname))); 
if  has_edge(source,  sink,  streamname,  a_graph)  then 
alatency  :=  latency(source,  sink,  agraph); 
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end  if; 
end  if; 

if  member(co_name,  BASE)  then 

assign(base_graph,  graph(fetch(BASE,  cojname))); 

if  has_edge(source,  sink,  stream_name,  basegraph)  then 
baselatency  :=  latency(source,  sink,  base_graph); 

end  if; 
end  if; 

if  member(co_name,  B)  then 

assign(b_graph,  graph(fetch(B,  coname))); 

if  has_edge(source,  sink,  streamname,  bgraph)  then 
b_latency  :=  latency(source,  sink,  bgraph); 

end  if; 
end  if; 


Taken  from  Dampier's  dissertation;  system.max_int 
is  returned  in  the  dissertation  code  if  A  /=  BASE  /=  B 
whereas  this  code  returns  undefinedtime  for  latency 

if  baselatency  =  a_latency  then 

if  base_latency  =  blatency  then 

mergedlatency  :=  base_latency; 
else 

mergedlatency  :=  b_latency; 
end  if; 
else 

if  baselatency  =  blatency  then 

merged_latency  :=  alatency; 
else 

if  a_latency  =  blatency  then 

merged_latency  :=  a_latency; 
else 

merged_latency  :=  undefinedtime;  —  different 
~  from  Dampier 
end  if; 
end  if; 
end  if; 


—  Now,  based  on  which  prototype  the  latency  was  recovered  from,  get 

—  the  corresponding  edge_property  init_map. 

if  merged_latency  =  base_latency  and 

has_edge(  source,  sink,  streamname,  base_graph)  then 
assign(streams_properties, 

get_properties(  source,  sink,  streamname, 
base_graph)); 
elsif  mergedlatency  =  alatency  and 

has_edge(source,  sink,  stream_name,  a_graph)  then 
assign(streams_properties, 

get_properties(source,  sink,  streamname, 
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a_graph)); 
elsif  mergedlatency  =  blatency  and 

has_edge(source,  sink,  streamname,  bgraph)  then 
assign(streams_properties, 

get_properties(source,  sink,  stream_name, 
bgraph)); 
else 

assign(streams_properties,  empty_init_map); 
end  if; 

recycle(agraph); 

recycle(basegraph); 

recycle(b_graph); 

end  merge_edge_attributes; 

—  Taken  from  Dampier's  dissertation  and  used  here  to  merge  axioms 

—  and  informal  descriptions  for  composite  operators. 

function  merge_text(BASE,  A,  B:  text)  return  text 

is 

begin 

if  eq(BASE,  empty)  and  eq(A,  empty)  and  eq(B,  empty) 

then 

return  empty; 


else 


ifeq(BASE,A) 
then 


else 


ifnoteq(BASE,  B) 
then 

return  B; 
else 

return  BASE; 
end  if; 

ifeq(BASE,  B) 
then 


else 


return  A; 

ifeq(A,  B) 
then 

return  A; 
else 

return  convert("**Text  Conflict**"); 
end  if; 


end  if; 


end  if; 


end  if; 

end  merge_text; 


—  Taken  from  Dampier's  dissertation 

procedure  merge_states(     MERGE:  in  out  typedeclaration; 
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BASE,  A,  B:  in  typedeclaration; 
MERGEINIT:  in  out  initmap; 
BASEINIT,  AINIT,  BINIT:  in  initmap) 
is 

initvalue:  expression; 
base_type,  a_type,  btype:  typename; 
begin 

assign(MERGE,  emptytypedeclaration); 

for  id:  psdl_id,  t:  typename  in  type_declaration_pkg.scan(BASE) 

loop 

if  member(id,  A)  and  member(id,  B) 
then 

a_type  :=  type_declaration_pkg.fetch(A,  id); 
b_type  :=  type_declaration_pkg.fetch(B,  id); 
bind(id,  merge_types(t,  atype,  b_type),  MERGE); 
assign(init_value,  init_map_pkg.fetch(BASEINIT,  id)); 
if  eq(init_value,  init_map_pkg.fetch(  AINIT,  id)) 
then 

if  eq(mit_value,  init_map_pkg.fetch(BrNIT,  id)) 
then 

bind(id,  initvalue,  MERGEINIT); 
else 

bind(id,  init_map__pkg.fetch(BINIT,  id),  MERGEINIT); 
end  if; 


else 


if  eq(init_value,  init  map_pkg.fetch(BINIT,  id)) 
then 

bind(id,  init_map_pkg.fetch(AINIT,  id),  MERGEINIT); 
else 

if  eq(init_map_pkg.fetch(AINIT,  id), 

init_map_pkg.fetch(BINIT,  id)) 
then 

bind(id,  init_map_pkg.fetch(AINIT,  id), 

MERGEINIT); 
else 

bind(id,  conflictexpression,  MERGEINIT); 
end  if; 
end  if; 
end  if; 
end  if; 
end  loop; 

for  id:  psdlid,  t:  type_name  in  type  declaration_pkg.scan(A) 
loop 

if  not  member(id,  BASE)  and  member(id,  B) 
then 

basetype  :=  nulltype; 

btype  :=  type_declaration_pkg.fetch(B,  id); 

bind(id,  merge_types(base_type,  t,  btype),  MERGE); 

assign(init_value,  init_map_pkg.fetch( AINIT,  id)); 

if  eq(init_value,  init_map_pkg.fetch( BINIT,  id)) 

then 

bind(id,  initvalue,  MERGEINIT); 
else 
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bind(id,  conflictexpression,  MERGEINIT); 
end  if; 
end  if; 

—  if  the  state  is  only  in  A,  then  add  it  to  the  reconstruction; 

—  NOTE:  this  condition  is  not  accounted  for  in  Dampier's  code 

if  not  member(id,  BASE)  and  not  member(id,  B) 
then 

bind(id,  t,  MERGE); 

bind(id,  init_mapjpkg.fetch(AINIT,  id),  MERGEINIT); 
end  if; 
end  loop; 

for  id:  psdlid,  t:  type_name  in  type_declaration_pkg.scan(B) 
loop 

if  not  member(id,  BASE)  and  member(id,  A) 
then 

base_type  :=  nulltype; 

a_type  :=  type_declaration_pkg.fetch(A,  id); 

bind(id,  merge_types(base_type,  atype,  t),  MERGE); 

assign(init_value,  init_map_pkg.fetch(BINIT,  id)); 

if  eq(init_value,  init_map_pkg.fetch(AINIT,  id)) 

then 

bind(id,  initvalue,  MERGEINIT); 
else 

bind(id,  conflictexpression,  MERGEINIT); 
end  if; 
end  if; 

—  if  the  state  is  only  in  B,  then  add  it  to  the  reconstruction; 

—  NOTE:  this  condition  is  not  accounted  for  in  Dampier's  code 

if  not  member(id,  BASE)  and  not  member(id,  A) 
then 

bind(id,  t,  MERGE); 

bind(id,  imt_map_pkg.fetch(BINIT,  id),  MERGEINIT); 
end  if; 
end  loop; 

end  mergestates; 

—  Taken  from  Dampier's  dissertation 

function  merge_id_sets(BASE,  A,  B:  psdl_id_set)  return  psdl_id_set 

is 

ADIFFBASE,  BDIFFBASE,  MERGE:  psdlidset; 
begin 


assign(A_DIFF_BASE,  empty); 
assign(B_DIFF_BASE,  empty); 
assign(MERGE,  empty); 
difference(A,  BASE,  ADIFFBASE); 
difference(B,  BASE,  BDIFFBASE); 
for  id:  psdlid  in  psdl_id_set_pkg.scan(A) 
loop 

if  member(id,  B) 

then 
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add(id,  MERGE); 
end  if; 
end  loop; 

for  id:  psdlid  in  psdl_id_set_pkg.scan(A_DIFF_BASE) 
loop 

if  not  member(id,  MERGE) 
then 

add(id,  MERGE); 
end  if; 
end  loop; 

for  id:  psdlid  in  psdl_id_set_pkg.scan(B_DIFF_BASE) 
loop 

if  not  member(id,  MERGE) 
then 

add(id,  MERGE); 
end  if; 
end  loop; 
return  MERGE; 
end  merge_id_sets; 

—  update  composite  operator's  states,  axioms,  informal  description,  and 

—  implementation  descriptions  by  attempting  a  merge  of  original 

—  composite  operators  from  the  BASE,  CHANGE  A,  and  CHANGE  B  psdl_programs. 
procedure  merge_composite_elements(A,  BASE,  B:  in  psdl_program; 

co:  in  out  compositeoperator) 


is 


begin 


co_A,  co_BASE,  co_B:  compositeoperator; 
recycle_A,  recycle_BASE,  recycleB:  Boolean  :=  False; 
merged_states:  type_declaration; 
mergedinit:  initmap; 


—  first  get  the  composite  operators  from  the  original  decomposition's. 

—  If  one  doesn't  exist,  make  a  dummy  so  we  can  reuse  existing  functions  and 

—  procedures. 

if  member(name(co),  A)  then 

co_A  :=  fetch(A,  name(co)); 
else 

co_A  :=  make_composite_operator(name(co)); 

recycleA  :=  True; 
end  if; 

if  member(name(co),  BASE)  then 

co_BASE  :=  fetch(BASE,  name(co)); 
else 

co_BASE  :=  make_composite_operator(name(co)); 

recycleBASE  :=  True; 
end  if; 

if  member(name(co),  B)  then 

co_B  :=  fetch(B,  name(co)); 
else 

co_B  :=  make_composite_operator(name(co)); 

recycle_B  :=  True; 
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end  if; 

Don't  have  to  do 

assign(op.keyw,  merge_id_sets(keywords(co_BASE),  keywords(coA), 
keywords(coB))); 

—  merge  the  informal  descriptions 
set_informal_description(merge_text(informal_description(co_BASE), 

informaldescription(coA), 
informal_description(co  B)),  co); 

—  merge  the  axioms 
set_axioms(merge_text(axioms(co_BASE),  axioms(coA),  axioms(coB)),  co); 

—  merge  the  implementation  descriptions 
set_implementation_description(merge_text(implementation_description(co_BASE), 

implementation_descnption(co_A), 
implementationdescription(coB)),  co); 

—  merge  the  states 

merge_states(merged_states,  states(coBASE),  states(co_A),  states(co_B), 

mergedinit,  get_init_map(co_BASE),  getinitmap(coA), 
get_init_map(co_B)); 

—  add  the  states  to  the  new  composite  operator 

if  not  equal(merged_states,  emptytypedeclaration)  then 

for  id:  psdlid,  t:  typename  in  type_declaration_pkg.scan(merged_states) 

loop 

add_state(id,  t,  co); 

end  loop; 
end  if; 

—  add  the  initial  values  for  the  states  to  the  new  composite  operator 
if  not  init_map_pkg.equal(merged_rmt,  empty_imt_map)  then 

for  stream:  psdlid,  e:  expression  in  init_map_pkg.scan(merged_init) 
loop 

add_initialization( stream,  e,  co); 
end  loop; 
end  if; 

recycle(mergedstates); 
recycle(merged_init); 

—  merge  the  exceptions 
assign(op.execp,  mergeidsets(coBASE), 

merge_id_sets(co_A), 
merge_id_sets(co_B)); 

if  recycle_A  then  recycle(co_A);  end  if; 

if  recycleBASE  then  recycle(coBASE);  end  if; 

if  recycleB  then  recycle(coB);  end  if; 

end  merge_composite_elements; 
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—  set  the  opid  argument's  operationname  field  to  the  psdlid  argument 
procedure  set_op_id_operationjiame(id:  psdlid;  op:in  out  op_id) 

is 
begin 

op.operationname  :=  id; 

op.typename  :=  empty; 
end  set_op_id_operation_name; 

—  add  the  child  composite  operator's  input  and  output  stream  edges  to 

—  its  parent's  psdl_graph. 

procedure  update_parents_graph(co:  compositeoperator; 

A,  BASE,  B,  NEWPSDL:  psdl_program) 


is 


begin 


childgraph,  parentgraph:  psdlgraph; 
source_parent_op_id,  sink_parent_op_id:  opid; 
parent_co,  parent_op:  composite_operator; 
graphs_edges:  edge_set; 
streams_properties:  init_map; 
streams_latency:  millisec  :=  undefinedtime; 


assign(  childgraph,  graph(co)); 

assign(  parentgraph,  graph(parent(co))); 

parentco  :=parent(co); 

assign(  streams_properties,  empty_init_map); 

edge_set_pkg.assign(graphs_edges,  edges(childgraph)); 

for  e:  edge  in  edge_set_pkg.scan(graphs_edges) 
loop 

if  not  has_vertex(e.sink,  childgraph)  then 

if  not  has_vertex(e.sink,  parent_graph)  then 
—  get  the  sources's  parent 

parentop  :=  parent(get_definition(NEW_PSDL,  e.sink)); 
set_op_id_operation_name(name(parent_op),  sink_parent_op_id); 
parent_op  :=  parent(get_definition(NEW_PSDL,  e. source)); 
set_op_id_operation_name(name(parent_op),  source_parent_op_id); 
if  not  has_edge(source_parent_op_id, 

sink_parent_op_id,  e.srreamname,  parentgraph) 
then 

merge_edge_attributes(  streamslatency,  streams_properties, 
source_parent_op_  id, 

sink_parent_op_id,  e. stream  name,  name(parent_co), 
A,  BASE,  B); 
assign(parent_graph, 

add_edge(source_parent_op_id,  sinkj)arent_op_id, 
e.srreamname,  parentgraph, 
streams_latency, 
streams_properties)) ; 
end  if; 
end  if; 
end  if; 
if  not  has_vertex(e. source,  childgraph)  then 
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if  not  has_vertex(e. source,  parentgraph)  then 

parentop  :=  parent(get_definition(NEW_PSDL,  e.sink)); 
set_op_id_operation_name(name(parent_op),  sink_parent_op_id); 
parent_op  :=  parent(get_defimtion(NEW_PSDL,  e. source)); 
set_op_id_operation_name(name(parent_op),  source_parent_op_id); 
if  not  has_edge(source_parent_op_id, 

sink_parent_op_id,  e.streamname,  parentgraph) 
then 

merge_edge_attributes(streams_latency,  streams_properties, 
source_parent_op_id, 

sink_parent_op_id,  e.streamname,  name(parentco), 
A,  BASE,  B); 
assign(parent_graph, 

add_edge(source_parent_op_id,  sinkjparentopid, 
e.streamname,  parentgraph, 
streamslatency, 
streams_properties)); 
end  if; 
end  if; 
end  if; 
end  loop; 

set_graph(parent_graph,  parent_co); 

recycle(streams_properties); 
recycle(child_graph); 
recycle(parentgraph); 
edge_set_pkg.recycle(graphs_edges); 

end  updatejparentsgraph; 

procedure  update_root_edges(co:  in  out  compositeoperator; 

A,  BASE,  B,  NEWPSDL:  psdl_program) 


is 


begin 


parentop:  compositeoperator; 
rootgraph:  psdl_graph; 
graphsedges:  edge_set; 
streams_properties:  initmap; 
streamslatency:  millisec  :=  undefined_time; 
sink_parent_op_id,  source_parent_op_id:  opid; 


assign(root_graph,  graph(co)); 
assign(streams_properties,  emptyinitmap); 
edge_set_pkg.assign(graphs_edges,  edges(root_graph)); 

for  e:  edge  in  edge_set_pkg.scan(graphs_edges) 
loop 

if  not  has_vertex(e. source,  rootgraph)  then 

parentop  :=  parent(get_definition(NEW  PSDL,  e. source)); 
set_op_id_operation_name(name(parent_op),  source_parent_op_id); 
if  not  has_edge(source_parent_op_id,  e.sink,  e.streamname,  rootgraph) 
then 

merge_edge_attributes(  streamslatency ,  streams  properties, 
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source_parent_op_id, 
e.sink,  e.streamname,  name(co), 
A,  BASE,  B); 
assign(root_graph,  remove_edge(e,  root_graph)); 
assign(root_graph, 

add_edge(  source  j>arent_op_id,  e.sink, 
e.streamname,  root_graph, 
streams_latency, 
streams_properties)); 
end  if; 
end  if; 
if  not  has_vertex(e.sink,  root_graph)  then 

parentop  :=  parent(get_definition(NEW_PSDL,  e.sink)); 

set_op_id_operation_name(name(parent_op),  sink_parent_op_id); 

if  not  has_edge(e. source,  sink_parent_op_id,  e.streamname,  root_graph) 

then 

merge_edge_attributes(  streamslatency ,  streams_properties, 
e.  source, 

sink_parent_op_id,  e.streamname,  name(co), 
A,  BASE,  B); 
assign(root_graph,  remove_edge(e,  rootgraph)); 
assign(root_graph, 

add_edge(e. source,  sink_parent_op_id, 
e.streamname,  root_graph, 
streamslatency, 
streams  jproperties)) ; 
end  if; 
end  if; 
end  loop; 


set_graph(root_graph,  co); 

recycle(streams_properties); 
recycle(root_graph); 
edge_set_pkg.recycle(graphs_edges); 
end  updaterootedges; 

—  For  composite  operators  other  than  the  root  operator,  this  procedure 

—  labels  the  source  for  input  edges  and  the  sink  for  output  edges 

—  as  EXTERNAL 

input  streams: 

EXTERNAL  ->  input  stream_name  ->  local  sink  operator 

output  streams: 

local  source  operator  ->  output  streamname  ->  EXTERNAL 

procedure  set_external_inputs_n_outputs(co:  in  out  compositeoperator; 

A,  BASE,  B,  NEWPSDL:  psdPprogram) 
is 

parentopid:  op_id; 

parentop:  compositeoperator; 

new_graph,  parent_graph:  psdlgraph; 
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begin 


inputstreams,  outputstreams:  typedeclaration; 
graphs_edges:  edge_set; 
streams_properties:  init_map; 
streams_latency:  millisec  :=  undefinedtime; 
external:  op_id; 


assign(new_graph,  graph(co)); 
assign(  inputstreams,  inputs(co)); 
assign(output_streams,  outputs(co)); 
assign(streams_properties,  empty_init  map); 
set_op_id_operation_name(convert("EXTERNAL"),  external); 
edge_set_pkg.assign(graphs_edges,  edges(newgraph)); 

—  for  inputs,  the  sink  will  be  local  and  the  source  will  be  EXTERNAL; 

for  stream_name:  psdlid,  tn:  typename  in  type_declaration_pkg.scan(input_streams) 
loop 

for  e:  edge  in  edge_set_pkg.scan(graphs_edges) 
loop 

if  eq(stream_name,  e.stream_name)  and  not  has_vertex(e. source,  newgraph) 
then 

if  not  has_edge(external,  e.sink,  e.stream_name,  newgraph)  then 

merge_edge_attributes(streams_latency,  streams_properties, 
external, 

e.sink,  e.streamname,  name(co), 
A,  BASE,  B); 

assign(new_graph,  remove_edge(e,  new_graph)); 
assign(new_graph,  add_edge( external,  e.sink, 
streamname,  newgraph, 
streams_latency, 
streams_properties)); 
else  —  remove  redundant  externals  for  the  streamname  with  e.sink 

assign(new_graph,  remove_edge(e,  newgraph)); 
end  if; 
end  if; 
end  loop; 

end  loop; 

recycle(streamsjproperties); 
streamslatency  :=  undefinedtime; 

—  for  outputs,  the  sink  will  be  EXTERNAL  and  the  source  will  be  local 

for  streamname:  psdlid,  tn:  typename  in  type_declaration_pkg.scan(output_streams) 
loop 

for  e:  edge  in  edge_set_pkg.scan(graphs_edges)loop 

if  eq(stream_name,  e.streamname)  and  not  has_vertex(e.sink,  newgraph) 
then 

if  not  has_edge(e. source,  external,  e.streamname,  newgraph)  then 
merge_edge_attributes(  streams  latency ,  streams_properties, 
e. source, 

external,  e.streamname,  name(co), 
A,  BASE,  B); 
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assign(new_graph,  remove_edge(e,  new_graph)); 
assign(new_graph,  add_edge(e. source,  external, 
stream  name,  newgraph, 
streamslatency, 
streams_properties)); 
else  —  remove  redundant  externals  for  the  streamname  with  e. source 

assign(new_graph,  remove_edge(e,  newgraph)); 
end  if; 
end  if; 
end  loop; 
end  loop; 

set_graph(new_graph,  co); 

recycle(streams_properties); 

recycle(new_graph); 

recycle(  input_streams) ; 

recycle(outputstreams); 

edge_set_pkg.recycle(graphs_edges); 

end  setexternalinputsnoutputs; 

--  copy  operator's  streams  from  one  composite  operator  to  another 
procedure  copy_streams(from_op:  compositeoperator; 

to_op:  in  out  compositeoperator) 
is 

to  graph:  psdlgraph; 
data  streams:  type_declaration; 
to_graph_edges:  edge_set; 
begin 

assign(to_graph,  graph(toop)); 
assign(data_streams,  streams(from_op)); 

edge_set_pkg.assign(  tographedges,  edges(tograph)); 

—  for  an  edge  in  the  toop  graph  that  is  also  in  the  fromops 

—  data  streams  set  (str),  copy  it  to  to_ops  data  stream  set 
for  e:  edge  in  edge_set_pkg.scan(to_graph_edges)  loop 

for  streamname:  psdl_id,  to:  typename  in 

type_declaration_pkg.scan(data_streams) 
loop 
if  eq(stream_name,  e.stream_name)  then 

if  not  member(stream_name,  streams(toop)) 

and  not  member(stream_name,  inputs(to_op)) 
and  not  member(stream_name,  outputs(toop))  then 
add_stream(stream_name,  tn,  toop); 
end  if; 
end  if; 
end  loop; 
end  loop; 
recycle(tograph); 
recycle(datastreams); 

edge_set_pkg.recycle(to_graph_edges); 
end  copystreams; 
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—  recurse  through  composite  operator  graphs  to  finish  reconstruction  of  composite 

—  operators'  specification  and  implementation  graphs 
procedure  finish_composite_operator_construction(gr:  psdlgraph; 

A,  BASE,  B,  NEWPSDL:  psdl_program; 

co,  newrootco,  merged_root_co:  psdlcomponent) 


is 


begin 


graphs_vertices:  op_id_set; 

graphsedges  :  edgeset; 

source_not_in_vertices,  sinknotinvertices:  Boolean  :=  True; 

localco:  psdlcomponent; 

sumofchildrensmets:  millisec  :=  0; 

copyofgraph:  psdlgraph; 

merged_type_name:  type_name  :=  nulltype; 

assign(  graphsvertices,  vertices(gr)); 

—  recurse  down  through  composite  operator  graphs  setting  input  and  output 

—  stream  attributes  for  composite  operators.  When  this  loop  exits,  any  child 
--  composite  operator  for  "operatorid"  has  been  reconstructed  and 

—  "operatorid's"  graph  has  been  updated  and  can  be  used  to  set  "input"  and 

—  "output"  specification  attributes 

for  id:  op_id  in  op_id_set_pkg.scan(graphs_vertices) 
loop 

localco  :=  get_definition(NEW_PSDL,  id); 
if  componentgranularity(localco)  =  composite  then 
assign(copy_of_graph,  graph(localco)); 
finish_composite_operator_construction(copy_of_graph,  A,  BASE,  B, 

NEWPSDL,  localco,  newrootco,  mergedrootco); 
recycle(  copyofgraph) ; 
end  if; 
end  loop; 

if  there  is  a  source  or  sink  for  an  edge  and  the  source  or  sink  is  not  in 
the  vertices  set  for  the  graph,  then  the  edge  is  an  input  stream  or  output 
stream  ;  so,  assign  the  stream  as  an  input  stream  or  output  stream  for  the 
operator 

localco  :=  co; 

if  not  eq(local_co,  newrootco)  then 

edge_set_pkg.assign(  graphsedges,  edges(gr)); 

for  e:  edge  in  edge_set_pkg.scan(graphs_edges)  loop 
sourcenotinvertices  :=  True; 
sinknotinvertices  :=  True; 

for  id:  opid  in  op_id_set_pkg.scan(graphs_vertices)  loop 
if  eq(e. source,  id)  then 

source_not_in_vertices  :=  False; 
end  if; 
if  eq(e.sink,  id)  then 

sink_not_in_vertices  :=  False; 
end  if; 
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end  loop; 


if  source_not_in_vertices  then 

if  not  eq(convert("EXTERNAL"),  base_name(e. source)) 
then 

if  not  member(e.stream_name,  inputs(local_co))  then 

merge_input_stream_type_names( 

merged_type_name, 

name(localco), 

e.streamname, 
A,  BASE,  B); 

add  input( e .  s  treamname , 

merged_type_name,  localco); 
end  if; 
end  if; 
end  if; 

if  sinknotinvertices  then 

if  not  eq(convert("EXTERNAL"),  basename(e.sink)) 
then 

if  not  member(e.stream_name,  outputs(localco))  then 
merge_output_stream_type_names( 

merged_type_name, 
name(localco), 

e.streamname, 
A,  BASE,  B); 

add_output(e.stream_name, 

mergedtypename,  localco); 
end  if; 


end  if; 
end  if; 
end  loop; 

edge_set_pkg.recycle(graphs_edges); 
end  if; 


—  copy  over  data  streams  from  merged  co  corresponding  to  edges 

—  in  co's  graph 
copy_streams(merged_root_co,  localco); 

if  not  eq(local_co,  newrootco)  then 

update_parents_graph(local_co,  A,  BASE,  B,  NEWPSDL); 

set_external_inputs_n_outputs(local_co,  A,  BASE,  B,  NEWPSDL); 
else 

update_root_edges(local_co,  A,  BASE,  B,  NEWPSDL); 
end  if; 

--  setjvisible_timers(local_co); 

—  merge  axioms,  implementation  descriptions,  informal  descriptions, 
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—  and  states 

merge_composite_elements(A,  BASE,  B,  localco); 

recycle(graphsvertices); 

end  finishcompositeoperatorconstruction; 


—  copy  operator's  timing  constraints  (period,  fw,  mcp,  mrt)  from  one  composite  operator 

—  to  another 

procedure  copy_timing_constraints(operator_id:  op_id;  fromop:  compositeoperator; 

toop:  in  out  compositeoperator) 
is 
begin 

set_period(operator_id,  penod(operator_id,  fromop),  toop); 

set_finish_within(operator_id,  finish_within(operator_id,  from_op),  toop); 

set_minimum_calling_period(operator_id, 

minimum_calling_period(  operator  id,  fromop),  toop); 

set_maximum_response_time(operator_id, 

maximum_response_time(operator_id,  fromop),  toop); 

end  copy_timing_constraints; 


procedure  copy_exception_triggers(operator_id:  op_id; 

from_op:  composite_operator;  toop:  in  out  composite_operator) 
is 

localopid:  opid  :=  operatorid; 
excep_trigs:  excep_trigger_map; 
begin 

assign(excep_trigs,  get_exception_trigger(from_op)); 

for  ex:  excep_id,  exprs:  expression  in  excep_trigger_map_pkg.scan(excep_trigs)  loop 
if eq(ex.op, localopid) then 
set_exception_trigger(ex, 

exception_trigger(local_op_id,  ex.excep,  fromop),  to_op); 
end  if; 
end  loop; 

recycle!  exceptrigs); 

end  copy_exception_triggers; 

—  copy  operator's  control  constraints  (triggers,  execution  guards,  output  guards,  and 
--  exception  triggers)  from  one  composite  operator  to  another 
procedure  copy_conrrol_constraints(operator_id:  opid;  gr:  psdl_graph; 

fromop:  compositeoperator;  toop:  in  out  compositeoperator) 
is 

guards:  exec_guard_map; 
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local_op_id:  op_id  :=  operator_id; 
begin 

set_trigger(operator_id,  get_trigger(operator_id,  fromop),  toop); 

set_execution_guard(operator_id, 

execution_guard(  opera  torid,  fromop),  toop); 

for  e:  edge  in  edge_set_pkg.scan(edges(gr))  loop 
if  eq(e. source,  localopid)  then 

set_output_guard(local_op_id,  e.streamname, 
output_guard(local_op_id,  e.streamname,  fromop),  to_op); 
end  if; 
end  loop; 

copy_exception_triggers(local_op_id,  from_op,  toop); 

end  copycontrolconstraints; 


—  copy  operator  and  corresponding  edges  from  one  psdl_graph  operator  to  another 

procedure  copy_vertex_n_edges(op:  opid;  fromgraph:  psdlgraph;  tograph:  in  out  psdlgraph) 

is 

localopid:  opid  :=  op; 

from_graph_edges,  to_graph_edges:  edge_set; 


begin 


—  copy  vertex  from  from_graph  to  tograph 
assign(to_graph,  add_vertex(local_op_id,  tograph, 

maximum_execution_time(local_op_id,  fromgraph), 
get_properties(local_op_id,  fromgraph))); 

edge_set_pkg.assign(from_graph_edges,  edges(fromgraph)); 
edge_set_pkg.assign(to_graph_edges,  edges(tograph)); 

copy  the  edge  from  fromgraph  to  tograph  if  op  is  either  source  or  sink  for 
edge  in  fromgraph 

for  e:  edge  in  edge_set_pkg.scan(from_graph_edges)  loop 

if  eq(e. source,  localopid)  or  eq(e.sink,  local_op_id)  then 
if  not  member(e,  tographedges)  then 
assign(to_graph, 

add_edge(e. source,  e.sink,  e.stream_name,  to_graph, 
latency(e.  source,  e.sink,  e.streamname,  fromgraph), 
getjproperties(e. source,  e.sink,  e.streamname, 
fromgraph))); 
end  if; 
end  if; 
end  loop; 


edge_set_pkg.recycle(from_graph_edges); 
edge_set_pkg  .recyc  le(  tographedges ) ; 
end  copy_vertex_n_edges; 


procedure  copy_timer_operations(op:  opid;  to_node:  in  out  compositeoperator; 
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from  node:  compositeoperator) 
is 

timerops:  timeropset; 
begin 

assign(timer_ops,  timer_operations(op,  fromnode)); 
set_timer_op(op,  timerops,  tonode); 

end  copytimeroperations; 

end  reconstruct_prototype_utilities_pkg; 
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4.  ancestor_chains_pkg 


with  generic_map_pkg; 

with  psdlidjpkg;  use  psdl_id_pkg; 

with  extended_ancestor_pkg;  use  extended_ancestor_pkg; 

package  ancestor_chains_pkg  is 

package  ancestor_chains_map_mst_pkg  is 

new  generic_map_pkg(key  =>  psdl_id,  result  =>  extendedancestor, 
eq_key  =>  eq,  eq_res  =>  eq, 
averagesize  =>  100); 

subtype  ancestorchains  is  ancestor_chains_map_inst_pkg.map; 

—  Returns  an  empty  ancestorchains. 

function  empty _ancestor_chains  return  ancestor_chains; 

procedure  put_ancestor_chains(ea_map:  ancestorchains); 

end  ancestor_chains_pkg; 


with  textio;  use  textio; 

with  extended_ancestor_pkg;  use  extended_ancestor_pkg; 

package  body  ancestor_chains_pkg  is 

—  Returns  an  empty  ancestorchains. 

function  emptyancestorchains  return  ancestorchains  is 

ac  :  ancestor_chains; 
begin 

ancestor_chains_map_inst_pkg.create(null_ancestor,  ac); 

return  ac; 
end  empty  ancestorchains; 

procedure  put_ancestor_chains(ea_map:  ancestor_chains) 

is 

begin 

for  N:  psdl_id,  ea:  extendedancestor  in 

ancestor  chains_map_inst_pkg.scan(ea_map) 
loop 

put(convert(N));  put("'s  ancestor  chain:  "); 
putancestor(ea); 
end  loop; 
end  putancestorchains; 

end  ancestor_chains_pkg; 
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APPENDIX  B.  EXTENSIONS  AND  CHANGES  TO  PSDL  TYPE 


This  appendix  lists  the  changes  and  extensions  to  the  PSDL_TYPE  Abstract  Data 
Type  made  during  design  and  implementation  of  the  Decomposition  Recovery  Extension. 


Changed  Source  Files: 

PSDL_TYPE/psdl_ct_s.a 

PSDL_TYPE/psdl_graph_b.g 

PSDL_TYPE/psdl_graph_s.a 

PSDL_TYPE/psdl_type_b.g 

PSDL_TYPE/psdl_type_s.a 

PSDL_TYPE/INSTANTIATIONS/psdl_id_seq.a 


PSDL_TYPE/psdl_ct_s.a 

The  following  was  added: 

function  length(s:  psdl_id_sequence)  return  natural 

renames  psdl_id_seq_pkg.  length; 
procedure  recycle(s:  in  out  psdl_id_sequence) 

renames  psdl_id_seq_pkg.recycle; 
procedure  fetch(sl:  psdlidsequence;  low,  high:  natural;  s:  in  out  psdl_id_sequence) 

renames  psdl_id_seq_pkg.fetch; 


PSDL  TYPE/psdlgraphs.a 

The  following  was  added: 

—  remove_edge:  removes  a  directed  edge  from  source  to  sink  in  g. 
function  remove_edge(e:  edge; 

g:  psdl_graph;  latency:  millisec  :=  undefinedtime; 
properties:  initmap  :=  emptyinitmap) 
return  psdl_graph; 

function  has_edge(  source,  sink:  opid;  streamname:  psdlid;  g:  psdlgraph) 
return  boolean; 

—  Returns  true  if  and  only  if  there  exists  an  edge 

—  from  vertex  source  to  vertex  sink  in  g  with  streamjname. 
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PSDLTYPE/psdl  graphb.g 

The  following  was  added: 

—  remove_edge:  removes  a  directed  edge  from  source  to  sink  in  g. 
function  remove_edge(e:  edge; 

g:  psdl_graph;  latency:  millisec  :=  undefinedtime; 
properties:  initmap  :=  emptyinitmap) 
return  psdlgraph  is 
h:  psdl_graph; 
begin 
assign(h,  g); 

edge_set_pkg.remove(e,  h. edges); 
latency_map_pkg.remove(e,  h.latency); 
remove(e,  h.edge_properties); 
return  h; 
end  remove_edge; 

—  Returns  true  if  and  onlocalsink  if  there  exists 

~  an  edge  from  vertex  source  to  vertex  sink  in  g. 

function  has_edge(source,  sink:  op_id;  stream_name:  psdl_id;  g:  psdl_graph) 

return  boolean 

is 

local_source:  opid  :=  source;  —  Local  copy  to  avoid  compiler  bug. 

localsink:  op_id  :=  sink;  —  Local  copy  to  avoid  compiler  bug. 

local_stream_name:  psdlid  :=  stream_name;  —  Local  copy  to  avoid  compiler  bug. 

result:  boolean  :=  false; 
begin 

for  e:  edge  in  edge_set_pkg.scan(g.edges)  loop 
if  eq(e. source,  localsource)  and  eq(e.stream_name,  localstreamname)  and 

eq(e.sink,  local_sink) 
then  result  :=  true;  exit;  end  if; 

end  loop; 

return(result); 
end  hasedge; 
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PSDL_TYPE/psdl_type_s.a 

The  following  was  added: 

--  binds  a  timer_op_set  to  a  composite  operator 
procedure  set_timer_op(o:  op_id;  timer_ops:  timer_op_set; 

co:  in  out  composite_operator); 


function  get_exception_trigger(op:  composite_operator)return  excep_trigger_map; 

procedure  set_exception_trigger(e:  excep_id;  ex:  expression; 

op:  compositeoperator); 


procedure  set_informal_description(inf_desc:  text;  co:  psdl_component); 

procedure  set_axioms(ax:  text;  co:  psdlcomponent); 

procedure  set_implementation_description(impl_desc:  text;  co:  psdlcomponent); 

PSDLTYPE/psdl  typeb.g 

The  following  was  changed: 


In  set_graph(),  the  statement  "co.g  :=  g;"  was  causing  crashes.  It  was  replaced 
with  the  statement  "assign(co.g,  g);"  which  appears  to  have  fixed  the  problem. 

--co.g  :=g; 
assign(co.g,  g); 


The  following  was  added: 

•  adds  a  timer_op_set  to  a  composite  operator 

procedure  set_timer_op(o:  opid;  timer_ops:  timer_op_set; 

co:  in  out  compositeoperator)  is 
begin 
if  co  =  null_component  then  raise  undefinedcomponent;  end  if; 

bind(o,  timerops,  co.timop); 
end  set_timer_op; 
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function  get_exception_trigger(op:  compositeoperator)  return  excep_trigger_map 

is 

begin 

return  op.et; 
end  get_exception_trigger; 

procedure  set_exception_trigger(e:  excep_id;  ex:  expression; 

op:  compositeoperator) 
is 
begin 

if  not  member(e,  op.et)  then 

bind(e,  ex,  op.et); 
end  if; 
end  set_exception_trigger; 


procedure  set_informal_description(inf_desc:  text;  co:  psdlcomponent) 

is 

begin 

if  co  =  nullcomponent  then  raise  undefinedcomponent;  end  if; 

co.inf_desc  :=  inf_desc; 

end  set_informal_description; 

procedure  set_axioms(ax:  text;  co:  psdlcomponent) 

is 

begin 

if  co  =  nullcomponent  then  raise  undefinedcomponent;  end  if; 

co. ax  :=  ax; 
end  setaxioms; 

procedure  set_implementation_description(impl_desc:  text;  co:  psdl_component) 

is 

begin 

if  co  =  nullcomponent  then  raise  undefined_component;  end  if; 

co.impl_desc  :=  impldesc; 

end  set_implementation_description; 
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PSDL_TYPE/INSTANTIATIONS/psdl_id_seq.a 

The  following  was  added: 

function  length(s:  psdl_id_sequence)  return  natural 

renames  psdl_id_seq_inst_pkg.length; 
procedure  recycle(s:  in  out  psdl_id_sequence) 

renames  psdl_id_seq_inst_pkg.recycle; 
procedure  fetch(sl:  psdl_id_sequence;  low,  high:  natural;  s:  in  out  psdl_id_sequence) 

renames  psdl_id_seq_inst_pkg.fetch; 
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APPENDIX  C.  TEST-CASES 


This  appendix  describes  test-cases  used  to  test  ancestor  chain  merge  and  PSDL 
prototype  decomposition  structure  reconstruction.  For  each  test-case,  a  brief  description  is 
given  followed  by  a  listing  of  test-driver  source  code  and  test  output. 

For  most  of  these  test-cases,  PSDL  prototype  specification  files  (Expanded- 
Merged  prototype,  Change  A,  BASE,  Change  B)  were  used  a  input.  In  order  to  keep  the 
size  of  this  appendix  manageable,  these  file  are  not  included  here.  However,  they  are 
described,  and  they  are  available  from  the  author  upon  request  (keesling@nosc.mil). 


Test-Case:  testmergechains 

Used  to  demonstrate  conflict-free  ancestor  chain  merges,  as  well  as  conflicting 
ancestor  chain  merges  with  accompanying  conflict  reporting  and  resolution.  The  actual 
test-cases  are  hard-coded  into  the  test  driver. 

Test-Driver:  testmergechains 

with  textio;  use  text_io; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 

with  extended_ancestor_pkg;  use  extended_ancestor_pkg; 

with  decompose_graph_pkg;  use  decompose_graph_pkg; 

with  ancestor_chains_pkg;  use  ancestor_chains_pkg; 

procedure  test_merge_chains 

is 

ea_l,  ea_2,  ea_3:  extendedancestor; 

procedure  merge_test(A,  BASE,  B:  extended_ancestor;  atomic_op:  psdlid) 
is 

resolvechain,  merge:  extended_ancestor; 
begin 

put("A:     "); 

put_ancestor(A); 

put("BASE:  "); 

put_ancestor(BASE); 

put("B:     "); 

put_ancestor(B); 

merge_ancestor_chains(A,  BASE,  B,  merge); 

if  type_of_ancestor(merge)  =  improper  then 

put_conflict_message(atomic_op,  merge); 
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begin 


resolvechain  :=  resolveconflict(merge); 

put_line("CONFLICT  RESOLVED"); 

recycle_extended_ancestor(merge); 

merge  :=  resolve_chain; 
end  if; 

put("MERGE  =  "); 
put_ancestor(merge); 
put_line("  "); 

recycle_extended_ancestor(merge); 
end  merge_test; 


ea_l  :=  build_proper_ancestor(empty); 
append_ancestor(ea_l ,  convert("root_op")); 
append_ancestor(ea_l,  convert("op_l")); 
append_ancestor(ea_l ,  convert("op_2")); 
append_ancestor(ea_l ,  convert("op_3")); 
append_ancestor(ea_l ,  convert("op_4")); 

ea_2  :=  build_proper_ancestor(empty); 
append_ancestor(ea_2,  convert("root_op")); 
append_ancestor(ea_2,  convert("op  1 ")); 
append_ancestor(ea_2,  convert("op_2")); 
append_ancestor(ea_2,  convert("op_3")); 
append_ancestor(ea_2,  convert("op_4")); 
append_ancestor(ea_2,  convert("op_5")); 
append_ancestor(ea_2,  convert("op_6")); 

ea_3  :=  build_proper_ancestor(empty); 
append_ancestor(ea_3,  convert("root_op")); 
append_ancestor(ea_3,  convert("op_l ")); 
append_ancestor(ea_3,  convert("op_2")); 
append_ancestor(ea_3,  convert("op_3")); 
append_ancestor(ea_3,  convert("op_4")); 
append_ancestor(ea_3,  convert("op_5")); 
append_ancestor(ea_3,  convert("op_6")); 
append_ancestor(ea_3,  convert("op_7")); 

put_line(MA  =  BASE  /=  B"); 

merge_test(ea_l,  ea_l,  ea_2,  convert("atomic_op")); 

put_line("A  /=  B  =  BASE"); 

merge_test(ea_l,  ea_2,  ea_2,  convert("atomic_op")); 
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put_line("A  =  B  /=  BASE"); 

merge_test(ea_l ,  ea_2,  ea_l,  convert("atomic_op")); 

put_line("A  /=  BASE  /=  B"); 

merge_test(ea_2,  ea_l,  ea_3,  convert("atomic_op")); 

recycle_extended_ancestor(ea_l); 

ea_l  :=  build_proper_ancestor(  empty); 
append_ancestor(ea_l ,  convert("root_op")); 
append_ancestor(ea_l ,  convert("op_l ")); 
append_ancestor(ea_l ,  convert("op_2")); 
append_ancestor(ea_l ,  convert("op_3")); 
append_ancestor(ea_l ,  convert("op_8")); 
append_ancestor(ea_l ,  convert("op_4")); 

put_line("A  /=  BASE  /=  B"); 

merge_test(ea_2,  ea_l,  ea_3,  convert("atomic_op")); 

put_line("A  /=  BASE  /=  BM); 

merge_test(ea_l,  ea_2,  ea_3,  convert("atomic_op")); 

put_line("A  /=  BASE  /=  B"); 

merge_test(ea_3,  ea_l,  ea_2,  convert("atomic_op")); 

put_line("A  /=  BASE  /=  B"); 

merge_test(ea_3,  ea_2,  ea_l,  convert("atomic_op")); 

recycle_extended_ancestor(ea_l); 
recycle_extended_ancestor(ea_2); 
recycle_extended_ancestor(ea_3); 


eal  :=  build_proper_ancestor(empty); 
append_ancestor(ea_l ,  convert("root_op")); 
append_ancestor(ea_l ,  convert("op_l ")); 
append_ancestor(ea_l ,  convert("op_2")); 
append_ancestor(ea_l,  convert("op_3")); 
append_ancestor(ea_l ,  convert("op_4")); 
append_ancestor(ea_l ,  convert("op_5 1 ")); 
append_ancestor(ea_l ,  convert("op_6")); 
append_ancestor(ea_l ,  convert("op_7")); 

ea_2  :=  build_proper_ancestor(empty); 
append_ancestor(ea_2,  convert("root_op")); 
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append_ancestor(ea_2,  convert("op_l ")); 
append_ancestor(ea_2,  convert("op_2")); 
append_ancestor(ea_2,  convert("op_3")); 
append_ancestor(ea_2,  convert("op_4")); 
append_ancestor(ea_2,  convert("op_5")); 
append_ancestor(ea_2,  convert("op_6")); 
append_ancestor(ea_2,  convert("op_7")); 

ea_3  :=  build_proper_ancestor(  empty); 
append_ancestor(ea_3,  convert("root_op")); 
append_ancestor(ea_3,  convert("op_l ")); 
append_ancestor(ea_3,  convert("op_2")); 
append_ancestor(ea_3,  convert("op_3")); 
append_ancestor(ea_3,  convert("op_4")); 
append_ancestor(ea_3,  convert("op_5")); 
append_ancestor(ea_3,  convert("op_63")); 
append_ancestor(ea_3,  convert("op_7")); 

put_line("A  /=  BASE  /=  B"); 

merge_test(ea_l ,  ea_2,  ea_3,  convert("atomic_op")); 

recycle_extended_ancestor(ea_l ) 
recycle_extended_ancestor(ea_2) 
recycle_extended_ancestor(ea_3 ) 

ea_l  :=  build_proper_ancestor(empty); 
append_ancestor(ea_l ,  convert("root_op")); 

ea_2  :=  build_proper_ancestor(empty); 
append_ancestor(ea_2,  convert("root_op")); 
append_ancestor(ea_2,  convert("op_l ")); 
append_ancestor(ea_2 ,  convert( " op_2 " )) ; 
append_ancestor(ea_2,  convert("op_3")); 
append_ancestor(ea_2,  convert("op_4")); 
append_ancestor(ea_2,  convert("op_5")); 
append_ancestor(ea_2,  convert("op_6")); 
append_ancestor(ea_2,  convert("op_7")); 

ea_3  :=  build_proper_ancestor(empty); 
append_ancestor(ea_3,  convert("root_op")); 
append_ancestor(ea_3,  convert("op_l ")); 
append_ancestor(ea_3,  convert("op_2")); 
append_ancestor(ea_3,  convert("op_3")); 
append_ancestor(ea_3,  convert("op_4")); 
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append_ancestor(ea_3,  convert("op_5")); 


put_line("A  =  BASE  /=  B"); 

merge_test(ea_l,  ea_l,  ea_3,  convert("atomic_op")); 

put_line("A  =  B  =  root_op  /=  BASE"); 
merge_test(ea_l,  ea_3,  ea_l,  convert("atomic_op")); 

put_line("A  =  B  =  BASE"); 

merge_test(ea_3,  ea_3,  ea_3,  convert("atomic_op")); 

put_line("A  /=  B  /=  BASE"); 

merge_test(ea_l,  ea_3,  ea_2,  convert("atomic_op")); 

put_line("A  /=  B  /=  BASE"); 

merge_test(ea_l,  ea_2,  ea_3,  convert("atomic_op")); 

put_line("A  /=  BASE  =  EMPTY  /=  B"); 

merge_test(ea_2,  emptyextendedancestor,  ea_3,  convert("atomic_op")); 

put_line("A  =  BASE  -  EMPTY  /=  B"); 
merge_test(empty_extended_ancestor,  emptyextendedancestor,  ea_3 , 

convert("atomic_op")); 

put_line("A  =  EMPTY  /=  BASE  /=  B"); 
merge_test(empty_extended_ancestor,  ea_2,  ea_3,  convert("atomic_op")); 

put_line("A  =  EMPTY  /=  BASE  /=  B"); 
merge_test(empty_extended_ancestor,  ea_3,  ea_2,  convert("atomic_op")); 

recycle_extended_ancestor(ea_3); 
ea_3  :=  build_proper_ancestor(empty); 
append_ancestor(ea_3,  convert("root_op")); 
append_ancestor(ea_3,  convert("op_l ")); 
append_ancestor(ea_3,  convert("op_2")); 
append_ancestor(ea_3,  convert("op_3")); 
append_ancestor(ea_3 ,  convert("op_4")); 
append_ancestor(ea_3,  convert("op_9")); 

put_line("A  =  EMPTY  /=  BASE  /=  B"); 
merge_test(empty_extended_ancestor,  ea_3,  ea_2,  convert("atomic_op")); 

putJine("A  =  EMPTY  /=  BASE  /=  B"); 
merge_test(empty_extended_ancestor,  ea_2,  ea_3,  convert("atomic_op")); 
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recycle_extended_ancestor(ea_l); 
recycle_extended_ancestor(ea_2); 
recyc  le_extended_ancestor(ea_3 ) ; 
end  test_merge_chains; 

Test  Output:  testmergechains 

A  =  BASE  /=  B 

A:     root_op->op_l  ->op_2->op_3->op_4 

BASE:  root_op->op_l  ->op_2->op_3->op_4 

B :     root_op->op_l  ->op_2->op_3->op_4->op_5->op_6 

MERGE  =  root_op->op_l->op_2->op_3->op_4->op_5->op_6 

A  /=  B  =  BASE 

A:     root_op->op_l  ->op_2->op_3->op_4 

BASE:  root_op->op_l ->op_2->op_3->op_4->op_5->op_6 

B :     root_op->op_  1  ->op_2->op_3  ->op_4->op_5  ->op_6 

MERGE  =  root_op->op_l->op_2->op_3->op_4 

A  =  B  /=  BASE 

A:     root_op->op_l  ->op_2->op_3->op_4 

BASE:  root_op->op_l ->op_2->op_3->op_4->op_5->op_6 

B :     root_op->op_l  ->op_2->op_3->op_4 

MERGE  =  root_op->op_l->op_2->op_3->op_4 

A  /=  BASE  /=  B 

A:     root_op->op_l  ->op_2->op_3->op_4->op_5->op_6 

BASE:  root_op->op_l ->op_2->op_3->op_4 

B :     root_op->op_l  ->op_2->op_3->op_4->op_5->op_6->op_7 

MERGE  =  root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7 

A  /=  BASE  /=  B 

A:     root_op->op_l  ->op_2->op_3->op_4->op_5->op_6 

BASE:  root_op->op_l ->op_2->op_3->op_8->op_4 

B :     root_op->op_l  ->op_2->op_3->op_4->op_5->op_6->op_7 

MERGE  =  root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7 

A  /=  BASE  /=  B 

A :     root_op->op_  1  ->op_2->op_3  ->op_8->op_4 

BASE:  root_op->op_l ->op_2->op_3->op_4->op_5->op_6 

B:     root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7 

ONE  OR  MORE  CONFLICTS  IN  ANCESTOR  CHAIN  RECOVERY  FOR:  atomic_op 

<root_op->op_l->op_2->op_3->op_8->op_4> 

[<root_op->op_  1  ->op_2->op_3  ->op_4->op_5  ->op_6>] 
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<root_op->op_l  ->op_2->op_3->op_4->op_5->op_6->op_7>  = 

<root_op->op_l  ->op_2->op_3->op_4->op_5->op_6->op_7>  U 

<root_op->op_l->op_2->op_3->op_8->op_4>= 

(***conflict***)  = 

<root_op->op_l  ->op_2->op_3(op_4->op_5->op_6->op_7  U  op_8->op_4)> 


CONFLICT  RESOLVED 

MERGE  =  root_op->op_l->op_2->op_3 


A  /=  BASE  /=  B 

A:     root_op->op_l  ->op_2->op_3->op_4->op_5->op_6->op_7 

BASE:  root_op->op_l  ->op_2->op_3->op_8->op_4 

B:     root_op->op_l->op_2->op_3->op_4->op_5->op_6 

MERGE  =  root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7 

A  /=  BASE  /=  B 

A:     root_op->op_l  ->op_2->op_3->op_4->op_5->op_6->op_7 

BASE:  root_op->op_l  ->op_2->op_3->op_4->op_5->op_6 

B :     root_op->op_l  ->op_2->op_3->op_8->op_4 

ONE  OR  MORE  CONFLICTS  IN  ANCESTOR  CHAIN  RECOVERY  FOR:  atomicop 

<root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7> 

[<root_op->op_  1  ->op_2->op_3  ->op_4->op_5  ->op_6>] 

<root_op->op_l  ->op_2->op_3->op_8->op_4>  = 

<root_op->op_l->op_2->op_3->op_8->op_4>U 

<root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7>= 

(***conflict***)  = 

<root_op->op_l ->op_2->op_3(op_8->op_4  U  op_4->op_5->op_6->op_7)> 

CONFLICT  RESOLVED 

MERGE  =  root_op->op_l->op_2->op_3 

A  /=  BASE  /=  B 

A:     root_op->op_l  ->op_2->op_3->op_4->op_5 1  ->op_6->op_7 

BASE:  root_op->op_l  ->op_2->op_3->op_4->op_5->op_6->op_7 

B:     root_op->op_l  ->op_2->op_3->op_4->op_5->op_63->op_7 

ONE  OR  MORE  CONFLICTS  IN  ANCESTOR  CHAIN  RECOVERY  FOR:  atomicop 

<root_op->op_l  ->op_2->op_3->op_4->op_5 1  ->op_6->op_7> 

[<root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7>] 

<root_op->op_l  ->op_2->op_3->op_4->op_5->op_63->op_7>  = 

<root_op->op_l  ->op_2->op_3->op_4->op_5->op_63->op_7>  U 

<root_op->op_l->op_2->op_3->op_4->op_5 1  ->op_6->op_7>= 

(***conflict***)  = 

<root_op->op_l  ->op_2->op_3->op_4(op_5->op_63->op_7  U  op_5 1  ->op_6->op_7)> 

CONFLICT  RESOLVED 
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MERGE  =  root_op->op_l->op_2->op_3->op_4 


A  =  BASE  /=  B 
A:     rootop 
BASE:  root_op 


B :     root_op->op_l  ->op_2->op_3->op_4->op_5 
MERGE  =  root_op->op_l->op_2->op_3->op_4->op_5 

A  =  B  =  root_op  /=  BASE 

A:     rootop 

BASE:  root_op->op_l ->op_2->op_3->op_4->op_5 

B:     root_op 

MERGE  =  rootop 

A  =  B  =  BASE 

A:     root_op->op_l  ->op_2->op_3->op_4->op_5 
BASE:  root_op->op_l ->op_2->op_3->op_4->op_5 
B :     root_op->op_l  ->op_2->op_3->op_4->op_5 
MERGE  =  root_op->op_l->op_2->op_3->op_4->op_5 

A  /=  B  /=  BASE 

A:     rootop 

BASE:  root_op->op_l->op_2->op_3->op_4->op_5 

B :     root_op->op_l  ->op_2->op_3->op_4->op_5->op_6->op_7 

MERGE  =  root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7 

A  /=  B  /=  BASE 

A:     rootop 

BASE:  root_op->op_l ->op_2->op_3->op_4->op_5->op_6->op_7 

B:     root_op->op_l->op_2->op_3->op_4->op_5 

MERGE  =  rootop 

A  /=  BASE  =  EMPTY  /=  B 

A:     root_op->op_l  ->op_2->op_3->op_4->op_5->op_6->op_7 

BASE:  EMPTY  CHAIN 

B :     root_op->op_l  ->op_2->op_3->op_4->op_5 

MERGE  =  root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7 

A  =  BASE  =  EMPTY  /=  B 

A:     EMPTY  CHAIN 

BASE:  EMPTY  CHAIN 

B :     root_op->op_l  ->op_2->op_3->op_4->op_5 

MERGE  =  root_op->op_l->op_2->op_3->op_4->op_5 

A  -  EMPTY  /=  BASE  /=  B 
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A:     EMPTY  CHAIN 

BASE:  root_op->op_l ->op_2->op_3->op_4->op_5->op_6->op_7 

B:     root_op->op_l  ->op_2->op_3->op_4->op_5 

MERGE  =  EMPTY  CHAIN 

A  =  EMPTY  /=  BASE  /=  B 

A:     EMPTY  CHAIN 

BASE:  root_op->op_l ->op_2->op_3->op_4->op_5 

B :     root_op->op_l  ->op_2->op_3->op_4->op_5->op_6->op_7 

MERGE  =  root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7 

A  =  EMPTY  /=  BASE  /=  B 

A:     EMPTY  CHAIN 

BASE:  root_op->op_l ->op_2->op_3->op_4->op_9 

B :     root_op->op_l  ->op_2->op_3->op_4->op_5->op_6->op_7 

MERGE  =  root_op->op_l->op_2->op_3->op_4->op_5->op_6->op_7 

A  =  EMPTY  /=  BASE  /=  B 

A:     EMPTY  CHAIN 

BASE:  root_op->op_l ->op_2->op_3->op_4->op_5->op_6->op_7 

B:     root_op->op_l  ->op_2->op_3->op_4->op_9 

MERGE  =  root_op->op_l->op_2->op_3->op_4->op_9 


Test-Case:  testmergedemo 

This  uses  the  test  cases  that  Dr.  Dampier  apparently  used  to  demo  his  merge 
tool...  used  again  here  to  demonstrate  that  prototypes  with  no  decomposition  structure 
(save  the  single  root  composite)  could  pass  through  decompose_graph  resulting  in  a 
correctly  formed  prototype.  It  also  demonstrates  that  text  descriptions  are  recovered  for 
composites. 

Test-Driver:  testmergedemo 

with  TEXTIO;  use  TEXTJO; 

with  psdl_component_pkg;  use  psdl_component_pkg; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 

with  psdl_program_pkg;  use  psdl_program_pkg; 

with  psdlio;  use  psdlio; 

with  extended_ancestor_pkg;  use  extended_ancestor_pkg; 

with  ancestor_chains_pkg;  use  ancestor_chains_pkg; 

with  decompose_graph_pkg;  use  decompose_graph_pkg; 

procedure  test_merge_demo  is 

TESTFILE:  FILE  TYPE; 
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NEW_PSDL,  A_PSDL,  BASE_PSDL,  BPSDL,  MERGE:  psdl_program; 
rootop:  psdlid; 

ancestors:  ancestorchains; 

MERGE_CHAIN:  extended_ancestor  :=  null_ancestor; 

begin 

OPEN(TESTFILE,IN_FILE,"merge.demo.MERGE.psdl"); 
assign(MERGE,empty_psdl_program); 

put_line("getting  change  MERGE  prototype  file!"); 
get(TESTFILE,MERGE); 

CLOSE(TESTFILE); 
--  put(MERGE); 

OPEN(TESTFILE,IN_FILE,"merge.demo.A.psdl"); 
assign(A_PSDL,empty_psdl_program); 

put_line("getting  change  A  prototype  file!"); 
get(TESTFILE,A_PSDL); 

CLOSE(TESTFILE); 
--  put(A_PSDL); 

OPEN(TESTFILE,IN_FILE,"merge.demo.Base.psdl"); 
assign(BASE_PSDL,empty_psdl_program); 

put_line("  getting  change  BASE  prototype  file!"); 
get(TESTFILE,BASE_PSDL); 

CLOSE(TESTFILE); 
--  put(BASE_PSDL); 

OPEN(TESTFILE,IN_FILE,"merge.demo.B.psdl"); 
assign(B_PSDL,empty_psdl_program); 

put_line("getting  change  B  prototype  file!"); 
get(TESTFILE,B_PSDL); 

CLOSE(TESTFILE); 
-  put(BPSDL); 

decompose_graph(A_PSDL,  BASEPSDL,  BPSDL,  MERGE,  NEW_PSDL); 
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—  need  the  root  operator  for  findancestorchain. 
rootop  :=  find_root(NEW_PSDL); 
put_line(convert(root_op)); 

put(NEW_PSDL); 

ancestor_chains_map_inst_pkg.assign(ancestors,  empty_ancestor_chains); 
for  id:  psdlid,  c  :  psdl_component  in  psdl_program_map_pkg.scan(NEW_PSDL) 
loop 

if  componentcategory(c)  =  psdloperator  then 

if  component_granularity(c)  =  atomic  then 

MERGE  CHAIN  :=  find_ancestor_chain(id,  rootop, 

NEW_PSDL); 
ancestor_chains_map_inst_pkg.bind(id,  MERGECHAIN, 

ancestors); 
end  if; 
end  if; 
end  loop; 

put_ancestor_chains(ancestors); 
ancestor_chains_map_inst_pkg.recycle(ancestors); 
end  test_merge_demo; 

Test-Output:  testmergedemo 

getting  change  MERGE  prototype  file! 

getting  change  A  prototype  file! 

getting  change  BASE  prototype  file! 

getting  change  B  prototype  file! 

D  HAS  EMPTY  MERGED  CHAIN,  POSSIBLE  MERGE  CONFLICT 

ASSIGNING  ROOT  OPERATOR  AS  PARENT 

A's  ancestor  chain:  DEM02 

B's  ancestor  chain:  DEM02 

E's  ancestor  chain:  DEM02 

D's  ancestor  chain:  DEM02 

DEM02 

OPERATOR  DEM02 

SPECIFICATION 
DESCRIPTION  {  This  is  the  psdl  program  used  in  the  2nd  demo  of  the  change 
merge  tool.   } 

END 

IMPLEMENTATION 
GRAPH 
VERTEX  A 
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VERTEX  B 
VERTEX  E 
VERTEX  D 

EDGE  AOUT  A  ->  B 
EDGE  DIN  A  ->  D 
EDGE  BOUT  B  ->  E 

CONTROL  CONSTRAINTS 

OPERATOR  A 

OPERATOR  B 

OPERATOR  E 

OPERATOR  D 
DESCRIPTION  {  This  implementation  is  not  real.  It  does  absolutely  nothing.  } 
END 

OPERATOR  A 
SPECIFICATION 
OUTPUT 
AOUT:tl, 
CIN:t2 
DESCRIPTION  {  nada  } 
END 

IMPLEMENTATION  ADA  A 
END 

OPERATOR  B 
SPECIFICATION 
INPUT 

AOUT:  tl 
OUTPUT 

BOUT:  t3 
DESCRIPTION  {  nada  } 
END 

IMPLEMENTATION  ADA  B 
END 

OPERATOR  E 
SPECIFICATION 
INPUT 

BOUT:  t3 
DESCRIPTION  {  nada  } 
END 
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IMPLEMENTATION  ADA  E 
END 

OPERATOR  D 
SPECIFICATION 
INPUT 

DIN:  t2 
DESCRIPTION  {  nada  } 
END 

IMPLEMENTATION  ADA  D 
END 

A's  ancestor  chain:  DEM02 
B's  ancestor  chain:  DEM02 
E's  ancestor  chain:  DEM02 
D's  ancestor  chain:  DEM02 

Test-Case:  testdgl 

This  test-case  demonstrates  correctness  of  merge  and  prototype  decomposition 
structure  recovery  for  non-overlapping,  or  disjoint,  hierarchical  changes.  For  this  test- 
case,  I  edited  existing  prototype  file  atacms.psdl  to  create  changes  A  &  B,  and  the  BASE 
version.  I  ran  atacms.psdl  through  the  expander  to  create  a  flattened  version  to  use  as 
MERGE:  atacms_ex.psdl.  I  removed  composite  operator  guiin  (and  all  associated 
streams  and  vertices)  from  atacms.psdl  to  produce  atacms.A.psdl.  I  then  removed 
composite  operator  guiout  (and  all  associated  streams  and  vertices)  from  atacms.psdl  to 
produce  atacms.B.psdl.  I  then  removed  both  guiout  and  guiin  (and  all  associated 
streams  and  vertices)  from  atacms.psdl  to  produce  atacms.BASE.psdl. 

Test-Driver:  testdgl 

with  TEXTJO;  use  TEXTJO; 

with  psdl_component_pkg;  use  psdl_component_pkg; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 

with  psdl_program_pkg;  use  psdl_program_pkg; 

with  psdlio;  use  psdlio; 

with  extended_ancestor_pkg;  use  extended_ancestor_pkg; 

with  ancestor_chains_pkg;  use  ancestor_chains_pkg; 

with  decompose_graph_pkg;  use  decompose_graph_pkg; 

procedure  test_dg_l  is 

TESTFILE:  FILETYPE; 

NEWPSDL,  APSDL,  BASEPSDL,  BPSDL,  MERGE:  psdl_program; 
root_op:  psdlid; 
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ancestors:  ancestorchains; 

MERGECHAIN:  extendedancestor  :=  null_ancestor; 

begin 

OPEN(TESTFILE,IN_FILE,"atacms_ex.psdr'); 
assign(MERGE,empty_psdl_program); 

put_line("getting  MERGE  prototype  file!"); 
get(TESTFILE,MERGE); 

CLOSE(TESTFILE); 
-  put(MERGE); 

OPEN(TESTFILE,IN_FILE,"atacms.A.psdl"); 
assign(A_PSDL,empty_psdl_program); 

put_line("getting  change  A  prototype  file!"); 
get(TESTFILE,A_PSDL); 

CLOSE(TESTFILE); 
--  put(APSDL); 

OPEN(TESTFILE,IN_FILE,"atacms.Base.psdl"); 
assign(BASE_PSDL,empty_psdl_program); 

put_line(" getting  change  BASE  prototype  file!"); 
get(TESTFILE,BASE_PSDL); 

CLOSE(TESTFILE); 
--  put(BASE_PSDL); 

OPEN(TESTFILE,IN_FILE,"atacms.B.psdl"); 
assign(B_PSDL,empty_psdl_program); 

put_line("getting  change  B  prototype  file!"); 
get(TESTFILE,B_PSDL); 

CLOSE(TESTFILE); 
--  put(BPSDL); 

decompose_graph(A_PSDL,  BASEPSDL,  B_PSDL,  MERGE,  NEWPSDL); 

—  need  the  root  operator  for  find_ancestor_chain. 
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rootop  :=  find_root(NEW_PSDL); 
put_line(convert(root_op)); 

put(NEW_PSDL); 

ancestor_chains_map_inst_pkg.assign(ancestors,  empty_ancestor_chains); 
for  id:  psdl_id,  c  :  psdl_component  in  psdl_program_map_pkg.scan(NEW_PSDL) 
loop 

if  component_category(c)  =  psdloperator  then 

if  component_granularity(c)  =  atomic  then 
MERGECHAIN  :=  find_ancestor_chain(id,  root_op, 

NEWPSDL); 
ancestor_chains_map_inst_pkg.bind(id,  MERGECHAIN, 

ancestors); 
end  if; 
end  if; 
end  loop; 

put_ancestor_chains(ancestors); 
ancestor_chains_map_inst_pkg.recycle(ancestors); 
end  test_dg_l; 

Test-Output:  test  dg  1 

getting  MERGE  prototype  file! 

getting  change  A  prototype  file! 

getting  change  BASE  prototype  file! 

getting  change  B  prototype  file! 

asas_op's  ancestor  chain:  atacms->command_station_op 

choose_inputs's  ancestor  chain:  atacms->gui_in 

cmds_out's  ancestor  chain:  atacms->gui_out 

cnr_link_op's  ancestor  chain:  atacms 

ctoc_op's  ancestor  chain:  atacms->command_station_op 

grnd_  statmodop's  ancestor  chain:  atacms->command_station_op 

gui_input_event_monitor's  ancestor  chain:  atacms->gui_in 

jstars_op's  ancestor  chain:  atacms 

lanl_link_op's  ancestor  chain:  atacms->command_station_op 

lan2_link_op's  ancestor  chain:  atacms->command_station_op 

scdl_link_op's  ancestor  chain:  atacms 

shooter_op's  ancestor  chain:  atacms 

target_emitter_op's  ancestor  chain:  atacms 

atacms 

OPERATOR  atacms 

SPECIFICATION 
STATES  guiinstr:  my_unit  INITIALLY  pause 

END 
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IMPLEMENTATION 
GRAPH 
VERTEX  commandstationop 
VERTEX  guiin 
VERTEX  guiout 
VERTEX  cnr_link_op:  50  MS 
VERTEX  jstarsop:  500  MS 
VERTEX  scdl_link_op:  50  MS 
VERTEX  shooter_op:  50  MS 
VERTEX  target_emitter_op:  500  MS 

EDGE  fire_cmd4_str  cnr_link_op  ->  shooterop 

EDGE  emissionstr  target_emitter_op  ->  jstars_op 

EDGE  target_arrayl_str  jstars_op  ->  scdl_link_op 

EDGE  gui_in_str  gui_in  ->  command_station_op 

EDGE  fire_cmd3_str  commandstationop  ->  cnr_link_op 

EDGE  gui_in_str  gui_in  ->  jstarsop 

EDGE  target_array2_str  scdllinkop  ->  commandstationop 

EDGE  gui_out_str  shooter_op  ->  gui_out 

EDGE  gui_in_str  gui_in  ->  target_emitter_op 

DATA  STREAM 
fire_cmd4_str:  target_data, 
fire_cmd3_str:  targetdata, 
emission_str:  target_emitter_array, 
target_arrayl_str:  jstars_array, 
target_array2_str:  jstarsarray, 
gui_out_str:  targetdata 
CONTROL  CONSTRAINTS 
OPERATOR  command_station_op 
OPERATOR  guiin 
OPERATOR  guiout 
OPERATOR  cnrlinkop 

TRIGGERED  BY  SOME  fire_cmd3_str 
OPERATORjstarsop 

TRIGGERED  IF  (gui_in_str  /=  myunit.pause) 

PERIOD  8000  MS 
OPERATOR  scdllinkop 

TRIGGERED  BY  SOME  target_arrayl_str 
OPERATOR  shooterop 

TRIGGERED  BY  SOME  fire_cmd4_str 
OPERATOR  targetemitterop 

TRIGGERED  IF  (gui_in_str  /=  my_unit. pause) 

PERIOD  16000  MS 
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END 

OPERATOR  commandstationop 
SPECIFICATION 
INPUT 
gui_in_str:  my_unit, 
target_array2_str:  jstarsarray 
OUTPUT 
fire_cmd3_str:  targetdata 
END 

IMPLEMENTATION 
GRAPH 
VERTEX  asas_op:  200  MS 
VERTEX  ctocop:  50  MS 
VERTEX  grnd_stat_mod_op:  50  MS 
VERTEX  lanl_link_op:  50  MS 
VERTEX  lan2_link_op:  50  MS 

EDGE  fire_cmdl_str  asas_op  ->  lan2_link_op 

EDGE  target_array4_str  lanl_link_op  ->  asas_op 

EDGE  fire_cmd2_str  lan2_link_op  ->  ctoc_op 

EDGE  target_array3_str  grnd_stat_mod_op  ->  lanllinkop 

EDGE  guiinstr  EXTERNAL  ->  asas_op 

EDGE  target_array2_str  :  5000  MS  EXTERNAL  ->  grnd_stat_mod_op 

EDGE  fire_cmd3_str  ctocop  ->  EXTERNAL 

DATA  STREAM 
firecmdlstr:  target_data, 
target_array4_str:  grnd_stat_mod_array, 
fire_cmd2_str:  targetdata, 
target_array3_str:  grnd_stat_mod_array 
CONTROL  CONSTRAINTS 
OPERATOR  asasop 

TRIGGERED  IF  (gui_in_str  /=  my_unit.pause) 

PERIOD  4000  MS 
OPERATOR  ctocop 

TRIGGERED  BY  SOME  fire_cmd2_str 
OPERATOR  grndstatmodop 

TRIGGERED  BY  SOME  target_array2_str 
OPERATOR  lanljinkop 

TRIGGERED  BY  SOME  target_array3_str 
OPERATOR  lan2_link_op 

TRIGGERED  BY  SOME  firecmdlstr 
END 
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OPERATOR  asasop 
SPECIFICATION 
INPUT 
gui_in_str:  my_unit, 
target_array4_str:  grnd_stat_mod_array 
OUTPUT 

fire_cmdl_str:  target_data 
MAXIMUM  EXECUTION  TIME  200  MS 
END 

IMPLEMENTATION  ADA  asasop 
END 

OPERATOR  guiin 
SPECIFICATION 
OUTPUT 
guiinstr:  myunit 
END 

IMPLEMENTATION 
GRAPH 
VERTEX  choosejnputs:  200  MS 
VERTEX  guiinputeventmonitor:  200  MS 

EDGE  gui_in_str  chooseinputs  ->  EXTERNAL 

CONTROL  CONSTRAINTS 
OPERATOR  chooseinputs 

PERIOD  2000  MS 
OPERATOR  guiinputeventmonitor 
END 

OPERATOR  chooseinputs 
SPECIFICATION  " 
OUTPUT 

guiinstr:  my_unit 
MAXIMUM  EXECUTION  TIME  200  MS 
END 

IMPLEMENTATION  ADA  chooseinputs 
END 

OPERATOR  guiout 
SPECIFICATION 
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INPUT 
gui_out_str:  targetdata 
END 

IMPLEMENTATION 
GRAPH 
VERTEX  cmds_out 

EDGE  gui_out_str  EXTERNAL  ->  cmdsout 

CONTROL  CONSTRAINTS 
OPERATOR  cmdsout 
TRIGGERED  BY  SOME  guioutstr 
END 

OPERATOR  cmdsout 
SPECIFICATION 

INPUT 
gui_out_str:  targetdata 
END 

IMPLEMENTATION  ADA  cmds_out 
END 

OPERATOR  cnrlinkop 
SPECIFICATION 
INPUT 

fire_cmd3_str:  targetdata 
OUTPUT 

fire_cmd4_str:  target_data 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  cnr_link_op 
END 

OPERATOR  ctoc_op 
SPECIFICATION 
INPUT 

fire_cmd2_str:  target_data 
OUTPUT 

fire_cmd3_str:  target_data 
MAXIMUM  EXECUTION  TIME  50  MS 
END 
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IMPLEMENTATION  ADA  ctoc_op 
END 

OPERATOR  grnd_stat_mod_op 
SPECIFICATION 
INPUT 

target_array2_str:  jstars_array 
OUTPUT 

target_array3_str:  grnd_stat_mod_array 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  grnd_stat_mod_op 
END 

OPERATOR  guiinputeventmonitor 
SPECIFICATION 

MAXIMUM  EXECUTION  TIME  200  MS 
END 

IMPLEMENTATION  ADA  gui_input_event_monitor 
END 

OPERATOR  j  stars_op 
SPECIFICATION 
INPUT 
emission_str:  target_emitter_array, 
guiinstr:  my_unit 
OUTPUT 

targetarray  1   str :  j  starsarray 
MAXIMUM  EXECUTION  TIME  500  MS 
END 

IMPLEMENTATION  ADA  jstars_op 
END 

OPERATOR  Ian  llinkop  • 
SPECIFICATION 
INPUT 

target_array3_str:  grnd_stat_mod_array 
OUTPUT 

target_array4_str:  grnd_stat_mod_array 
MAXIMUM  EXECUTION  TIME  50  MS 
END 
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IMPLEMENTATION  ADA  lanl_link_op 
END 

OPERATOR  lan2_link_op 
SPECIFICATION 
INPUT 

fire_cmdl_str:  target_data 
OUTPUT 

fire_cmd2_str:  target_data 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  lan2_link_op 
END 

OPERATOR  scdllinkop 
SPECIFICATION 
INPUT 

target_arrayl_str:  jstarsarray 
OUTPUT 

target_array2_str:  jstars_array 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  scdl_link_op 
END 

OPERATOR  shooterop 
SPECIFICATION 
INPUT 

fire_cmd4_str:  target_data 
OUTPUT 

gui_out_str:  target_data 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  shooterop 
END 

OPERATOR  target_emitter_op 
SPECIFICATION 
INPUT 

gui_in_str:  my_unit 
OUTPUT 
emission_str:  target_emitter_array 
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MAXIMUM  EXECUTION  TIME  500  MS 
END 

IMPLEMENTATION  ADA  target_emitter_op 
END 

asas_op's  ancestor  chain:  atacms->command_station_op 

choose_inputs's  ancestor  chain:  atacms->gui_in 

cmds_out's  ancestor  chain:  atacms->gui_out 

cnr_link_op's  ancestor  chain:  atacms 

ctocop's  ancestor  chain:  atacms->command_station_op 

grndstatmodop's  ancestor  chain:  atacms->command_station_op 

gui_input_event_monitor's  ancestor  chain:  atacms->gui_in 

jstarsop's  ancestor  chain:  atacms 

lanl_link_op's  ancestor  chain:  atacms->command_station_op 

lan2_link_op's  ancestor  chain:  atacms->command_station_op 

scdl_link_op's  ancestor  chain:  atacms 

shooter_op's  ancestor  chain:  atacms 

target_emitter_op's  ancestor  chain:  atacms 

Test-Case:  testconflict 

This  test-case  demonstrates  ancestor  chain  conflict  reporting  and  resolution  as 
well  as  showing  that  a  very  reasonable  decomposition  structure  can  be  recovered  in  the 
case  of  decomposition  structure  merge  conflicts. 

For  this  test-case,  I  created  atacms. A.Conflict.psdl  from  atacms. A.psdl  (used  in 
test_dg_l)  by  renaming  composite  operator  gui_out  to  gui_out_conflict.  I  used 
atacms.BASE.psdl  (used  in  test_dg_l)  for  atacms. Base.Conflict.psdl,  and  atacms.psdl  for 
atacms.B.Conflict.pdsl. 

Test-Driver:  testconflict 

with  TEXTIO;  use  TEXTIO; 

with  psdl_component_pkg;  use  psdl_component_pkg; 

with  psdl_concrete_typejpkg;  use  psdl_concrete_type_pkg; 

with  psdl_program_pkg;  use  psdljprogram_pkg; 

with  psdl_io;  use  psdl_io; 

with  extended_ancestor_pkg;  use  extended_ancestor_pkg; 

with  ancestor_chains_pkg;  use  ancestor_chains_pkg; 

with  decompose_graph_pkg;  use  decompose_graph_pkg; 

procedure  test_conflict  is 

TESTFILE:  FILETYPE; 

NEWPSDL,  APSDL,  BASEPSDL,  B_PSDL,  MERGE:  psdl_program; 
root_op:  psdlid; 
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ancestors:  ancestorchains; 

MERGECHAIN:  extendedancestor  :=  nullancestor; 

begin 

OPEN(TESTFILE,IN_FILE,"atacms_ex.psdr); 
assign(MERGE,empty_psdl_program); 

put_line("getting  MERGE  prototype  file!"); 
get(TESTFILE,MERGE); 

CLOSE(TESTFILE); 
--  put(MERGE); 

OPEN(TESTFILE,IN_FILE,"atacms.A.Conflict.psdl"); 
assign(A_PSDL,empty_psdl_program); 

put_line(" getting  change  A  prototype  file!"); 
get(TESTFILE,A_PSDL); 

CLOSE(TESTFILE); 
--  put(AJPSDL); 

OPEN(TESTFILE,IN_FILE,"atacms.Base.Conflict.psdl"); 
assign(BASE_PSDL,empty_psdl_program); 

put_line(" getting  change  BASE  prototype  file!"); 
get(TESTFILE,BASE_PSDL); 

CLOSE(TESTFILE); 
--  put(BASE_PSDL); 

OPEN(TESTFILE,IN_FILE,"atacms.B.Conflict.psdl"); 
assign(B_PSDL,empty_psdl_program); 

put_line("getting  change  B  prototype  file!"); 
get(TESTFILE,B_PSDL); 

CLOSE(TESTFILE); 
--  put(B_PSDL); 

decompose_graph(A_PSDL,  BASE_PSDL,  B_PSDL,  MERGE,  NEW  PSDL); 

—  need  the  root  operator  for  find_ancestor_chain. 
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root_op  :=  find_root(NEW_PSDL); 
put_line(convert(root_op)); 

put(NEW_PSDL); 

ancestor_chains_map_inst_pkg.assign(ancestors,  empty_ancestor_chains); 
for  id:  psdl_id,  c  :  psdlcomponent  in  psdl_program_map_pkg.scan(NEW_PSDL) 
loop 

if  componentcategory(c)  =  psdl_operator  then 

if  componentgranularity(c)  =  atomic  then 
MERGECHAIN  :=  find_ancestor_chain(id,  rootop, 

NEWPSDL); 
ancestor_chains_map_inst_pkg.bind(id,  MERGECHAIN, 

ancestors); 
end  if; 
end  if; 
end  loop; 

put_ancestor_chains(ancestors); 
ancestor_chains_map_inst_pkg.recycle(ancestors); 
end  testconflict; 

Test-Output:  testconflict 

getting  MERGE  prototype  file! 

getting  change  A  prototype  file! 

getting  change  BASE  prototype  file! 

getting  change  B  prototype  file! 

ONE  OR  MORE  CONFLICTS  IN  ANCESTOR  CHAIN  RECOVERY  FOR:  cmds_out 

<atacms->gui_out_conflict> 

[<EMPTY  CHAIN>] 

<atacms->gui_out>  = 

<atacms->gui_out>  U 

<atacms->gui_out_conflict>=:: 

(***conflict***)  = 

<atacms(gui_out  U  gui_out_conflict)> 

asasop's  ancestor  chain:  atacms->command_station_op 

choose_inputs's  ancestor  chain:  atacms->gui_in 

cnrlinkop's  ancestor  chain:  atacms 

ctoc_op's  ancestor  chain:  atacms->command_station_op 

grndstatmodop's  ancestor  chain:  atacms->command_station_op 

gui_input_event_monitor's  ancestor  chain:  atacms->gui_in 

jstars_op's  ancestor  chain:  atacms 

lanllinkop's  ancestor  chain:  atacms->command_station_op 

lan2_link_op's  ancestor  chain:  atacms->command_station_op 
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scdMinkop's  ancestor  chain:  atacms 
shooterop's  ancestor  chain:  atacms 
target_emitter_op's  ancestor  chain:  atacms 
cmds_out's  ancestor  chain:  atacms 
atacms 
OPERATOR  atacms 

SPECIFICATION 
STATES  gui_in_str:  myunit  INITIALLY  pause 

END 

IMPLEMENTATION 
GRAPH 
VERTEX  commandstationop 
VERTEX  gui_in 
VERTEX  cnr_link_op:  50  MS 
VERTEX  jstarsop:  500  MS 
VERTEX  scdllinkop:  50  MS 
VERTEX  shooter_op:  50  MS 
VERTEX  target_emitter_op:  500  MS 
VERTEX  cmdsout 

EDGE  fire_cmd4_str  cnr_link_op  ->  shooterop 

EDGE  emissionstr  target_emitter_op  ->  jstarsop 

EDGE  target_arrayl_str  jstars_op  ->  scdl_link_op 

EDGE  gui_out_str  shooterop  ->  cmdsout 

EDGE  guiinstr  guiin  ->  command_station_op 

EDGE  fire_cmd3_str  commandstationop  ->  cnrlinkop 

EDGE  guiinstr  guiin  ->  jstarsop 

EDGE  target_array2_str  scdl_link_op  ->  commandstationop 

EDGE  guiinstr  guiin  ->  target_emitter_op 

DATA  STREAM 
fire_cmd4_str:  target_data, 
fire_cmd3_str:  targetdata, 
emission_str:  target_emitter_array, 
target_arrayl_str:  jstarsarray, 
target_array2_str:  jstarsarray, 
gui_out_str:  targetdata 
CONTROL  CONSTRAINTS 
OPERATOR  commandstationop 
OPERATOR  guiin 
OPERATOR  cnrlinkop 

TRIGGERED  BY  SOME  fire_cmd3_str 
OPERATOR  jstarsop 

TRIGGERED  IF  (gui_in_str  /=  my_unit.pause) 
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PERIOD  8000  MS 
OPERATOR  scdllinkop 

TRIGGERED  BY  SOME  targetarraylstr 
OPERATOR  shooterop 

TRIGGERED  BY  SOME  fire_cmd4_str 
OPERATOR  targetemitterop 

TRIGGERED  IF  (guiinstr  /=  myunit.pause) 

PERIOD  16000  MS 
OPERATOR  cmdsout 

TRIGGERED  BY  SOME  guioutstr 
END 

OPERATOR  commandstationop 
SPECIFICATION 
INPUT 
gui_in_str:  my_unit, 
target_array2_str:  jstars_array 
OUTPUT 
fire_cmd3_str:  targetdata 
END 

IMPLEMENTATION 
GRAPH 
VERTEX  asas_op:  200  MS 
VERTEX  ctocop:  50  MS 
VERTEX  grnd_stat_mod_op:  50  MS 
VERTEX  lanl_link_op:  50  MS 
VERTEX  lan2_link_op:  50  MS 

EDGE  firecmdlstr  asas_op  ->  lan2_link_op 

EDGE  target_array4_str  lanllinkop  ->  asasop 

EDGE  fire_cmd2_str  lan2_link_op  ->  ctoc_op 

EDGE  target_array3_str  grnd_stat_mod_op  ->  lanllinkop 

EDGE  guiinstr  EXTERNAL  ->  asasop 

EDGE  target_array2_str  :  5000  MS  EXTERNAL  ->  grnd_stat_mod_op 

EDGE  fire_cmd3_str  ctoc_op  ->  EXTERNAL 

DATA  STREAM 

firecmdlstr:  targetdata, 

target_array4_str:  grnd_stat_mod_array, 

fire_cmd2_str:  target_data, 

target_array3_str:  grnd_stat_mod_array 
CONTROL  CONSTRAINTS 

OPERATOR  asasop 
TRIGGERED  IF  (gui_in_str  /=  my_unit.pause) 
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PERIOD  4000  MS 
OPERATOR  ctocop 

TRIGGERED  BY  SOME  fire_cmd2_str 
OPERATOR  grnd_stat_mod_op 

TRIGGERED  BY  SOME  target_array2_str 
OPERATOR  lanllinkop 

TRIGGERED  BY  SOME  target_array3_str 
OPERATOR  lan2_link_op 

TRIGGERED  BY  SOME  fire_cmdl_str 
END 

OPERATOR  asasop 
SPECIFICATION 
INPUT 
gui_in_str:  my_unit, 
target_array4_str:  grnd_stat_mod_array 
OUTPUT 

fire_cmdl_str:  target_data 
MAXIMUM  EXECUTION  TIME  200  MS 
END 

IMPLEMENTATION  ADA  asas_op 
END 

OPERATOR  guiin 
SPECIFICATION 
OUTPUT 
gui_in_str:  my_unit 
END 

IMPLEMENTATION 
GRAPH 
VERTEX  chooseinputs:  200  MS 
VERTEX  gui_input_event_monitor:  200  MS 

EDGE  gui_in_str  choose_inputs  ->  EXTERNAL 

CONTROL  CONSTRAINTS 
OPERATOR  chooseinputs 

PERIOD  2000  MS 
OPERATOR  guiinputeventmonitor 
END 

OPERATOR  chooseinputs 
SPECIFICATION  " 
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OUTPUT 

guiinstr:  my_unit 
MAXIMUM  EXECUTION  TIME  200  MS 
END 

IMPLEMENTATION  ADA  choose_inputs 
END 

OPERATOR  cnrlinkop 
SPECIFICATION 
INPUT 

fire_cmd3_str:  target_data 
OUTPUT 

fire_cmd4_str:  targetdata 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  cnr_link_op 
END 

OPERATOR  ctocop 
SPECIFICATION 
INPUT 

fire_cmd2_str:  target_data 
OUTPUT 

fire_cmd3_str:  targetdata 
MAXIMUM  EXECUTION  TIME  50  MS 

END 

IMPLEMENTATION  ADA  ctoc_op 
END 

OPERATOR  gmdstatmodop 
SPECIFICATION 
INPUT 

target_array2_str:  jstars_array 
OUTPUT 

target_array3_str:  grnd_stat_mod_array 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  grnd_stat_mod_pp 
END 

OPERATOR  guiinputeventmonitor 
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SPECIFICATION 
MAXIMUM  EXECUTION  TIME  200  MS 
END 

IMPLEMENTATION  ADA  gui_input_event_monitor 
END 

OPERATOR  jstarsop 
SPECIFICATION 
INPUT 
emissionstr:  target_emitter_array, 
gui_in_str:  my_unit 
OUTPUT 

target_arrayl_str:  jstarsarray 
MAXIMUM  EXECUTION  TIME  500  MS 
END 

IMPLEMENTATION  ADA  jstars_op 
END 

OPERATOR  lanl_link_op 
SPECIFICATION 
INPUT 

target_array3_str:  grnd_stat_mod_array 
OUTPUT 

target_array4_str:  grnd_stat_mod_array 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  lanljinkop 
END 

OPERATOR  lan2_link_op 
SPECIFICATION 
INPUT 

fire_cmdl_str:  target_data 
OUTPUT 

fire_cmd2_str:  target_data 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  lan2_link_op 
END 

OPERATOR  scdl_link_op 
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SPECIFICATION 
INPUT 

target_arrayl_str:  jstars_array 
OUTPUT 

target_array2_str:  jstars_array 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  scdllinkop 
END 

OPERATOR  shooterop 
SPECIFICATION 
INPUT 

fire_cmd4_str:  targetdata 
OUTPUT 

gui_out_str:  target_data 
MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ADA  shooter_op 
END 

OPERATOR  targetemitterop 
SPECIFICATION 
INPUT 

gui_in_str:  myunit 
OUTPUT 

emissionstr:  target_emitter_array 
MAXIMUM  EXECUTION  TIME  500  MS 
END 

IMPLEMENTATION  ADA  target_emitter_op 
END 

OPERATOR  cmdsout 
SPECIFICATION 
INPUT 
gui_out_str:  target_data 
END 

IMPLEMENTATION  ADA  cmdsout 
END 

asasop's  ancestor  chain:  atacms->command_station_op 
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chooseinputs's  ancestor  chain:  atacms->gu  iin 

cnrlinkop's  ancestor  chain:  atacms 

ctocop's  ancestor  chain:  atacms->command_station_op 

gmdstatmodop's  ancestor  chain:  atacms->command_station_op 

gui_input_event_monitor's  ancestor  chain:  atacms->gui_in 

jstarsop's  ancestor  chain:  atacms 

lanl_link_op's  ancestor  chain:  atacms->command_station_op 

lan2_link_op's  ancestor  chain:  atacms->command_station_op 

scdl_link_op's  ancestor  chain:  atacms 

shooterop's  ancestor  chain:  atacms 

target_emitter_op's  ancestor  chain:  atacms 

cmdsout's  ancestor  chain:  atacms 

Test-Case:  test_dg_2 

This  test-case  is  similar  to  test_dg_l  except  for  the  prototype  used, 
c3I_system.psdl,  is  roughly  twice  as  large  as  atacms.psdl.  This  test-case  also 
demonstrates  saving  a  reconstructed  prototype  to  file  —  c3i_system.NEW.psdl. 

For  MERGE,  I  used  an  expanded  version  of  c3i_system,  c3i_system.ex.psdl,  and 
edited  c3i_system.psdl  to  create  A,  BASE,  and  B.  c3i_system.A.psdl  has  composite 
operator  sensorinterface  (and  all  associated  streams  and  vertices)  removed. 
c3I_system.B.psdl  has  atomic  operators  weapons_interface,  weapons_system,  and 
emergency_status_screen  removed.  c3i_system.Base.psdl  has  composite  operator 
sensorinterface  (and  all  associated  streams  and  vertices)  removed  as  well  as  atomic 
operators  weaponsinterface,  weapons_system,  and  emergency_status_screen. 

Test-Driver:  test_dg_2 

with  TEXTJO;  use  TEXTJO; 

with  psd l_component_pkg;  use  psd l_component_pkg; 

with  psd l_concrete_type_pkg;  use  psdl_concrete_type_pkg; 

with  psdl_program_pkg;  use  psdl_program_pkg; 

with  psdlio;  use  psdl_io; 

with  extended_ancestor_pkg;  use  extended_ancestor_pkg; 

with  ancestor_chains_pkg;  use  ancestor_chains_pkg; 

with  decomposegraph_pkg-;  use  decompose_graph_pkg; 

procedure  test_dg_2  is 

TESTFILE:  FILE  TYPE; 

NEW_PSDL,  A_PSDL,  BASEPSDL,  BPSDL,  MERGE:  psdl_program; 
rootop:  psdlid; 

ancestors:  ancestor_chains; 

MERGE  CHAIN:  extended  ancestor  :=  null  ancestor; 
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begin 

OPEN(TESTFILE,IN_FILE,"c3i_system.ex.psdr); 
assign(MERGE,empty_psdl_program); 

put_line("getting  MERGE  prototype  file!"); 
get(TESTFILE,MERGE); 

CLOSE(TESTFILE); 
--  put(MERGE); 

0PEN(TESTFILE,IN_FILE,"c3i_system.A.psdl"); 
assign(A_PSDL,empty_psdl_program); 

put_line("getting  change  A  prototype  file!"); 
get(TESTFILE,A_PSDL); 

CLOSE(TESTFILE); 
--  put(A_PSDL); 

OPEN(TESTFILE,IN_FILE,"c3i_system.Base.psdl"); 
assign(BASE_PSDL,empty_psdl_program); 

put_line("getting  change  BASE  prototype  file!"); 
get(TESTFILE,BASE_PSDL); 

CLOSE(TESTFILE); 
-  put(BASEPSDL); 

OPEN(TESTFILE,IN_FILE,"c3i_system.B.psdl"); 
assign(B_PSDL,empty_psdl_program); 

put_line("getting  change  B  prototype  file!"); 
get(TESTFILE,B_PSDL); 

CLOSE(TESTFILE); 
--  put(BPSDL); 

decompose_graph(A_PSDL,  BASE_PSDL,  B_PSDL,  MERGE,  NEW_PSDL); 

~  need  the  root  operator  for  fmd_ancestor_chain. 
rootop  :=  findroot(NEWPSDL); 
put("PROTOTYPE  ROOT  OPERATOR  NAME:  "); 
put_line(convert(root_op)); 
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put(NEW_PSDL); 

ancestor_chains_map_inst_pkg.assign(ancestors,  empty_ancestor_chains); 
for  id:  psdl_id,  c  :  psdlcomponent  in  psdl_program_map_pkg.scan(NEW_PSDL) 
loop 

if  component_category(c)  =  psdl_operator  then 

if  componentgranularity(c)  =  atomic  then 
MERGECHAIN  :=  find_ancestor_chain(id,  root_op, 

NEW_PSDL); 
ancestor_chains_map_inst_pkg.bind(id,  MERGECHAIN, 

ancestors); 
end  if; 
end  if; 
end  loop; 

put_ancestor_chains(ancestors); 
ancestor_chains_map_inst_pkg.recycle(ancestors); 

OPEN(TESTFILE,OUT_FILE,"c3i_system.NEW.psdl"); 
put(TESTFILE,  NEWPSDL); 
CLOSE(TESTFILE); 
end  test_dg_2; 

Test-Output:  test  dg  2 

getting  MERGE  prototype  file! 

getting  change  A  prototype  file! 

getting  change  BASE  prototype  file! 

getting  change  B  prototype  file! 

convert_to_text_file's  ancestor  chain:  c3i_system->comrns_interface 

decideforarchiving's  ancestor  chain:  c3i_system->comms_interface 

extract_tracks's  ancestor  chain:  c3i_system->comms_interface 

forward_for_transmission's  ancestor  chain:  c3i_system->comms_interface 

make_routing's  ancestor  chain:  c3i_system->comms_interface 

parse_input_file's  ancestor  chain:  c3i_system->comms_interface 

prepare_periodic_report's  ancestor  chain:  c3i_system->comms_interface 

comms_links's  ancestor  chain:  c3i_system 

navigation_system's  ancestor  chain:  c3i_system 

analyze_sensor_data's  ancestor  chain:  c3i_system->sensor_interface 

preparesensortrack's  ancestor  chain:  c3i_system->sensor_interface 

sensors's  ancestor  chain:  c3i_system 

add_comms_track's  ancestor  chain:  c3i_system->track_database_manager 

add_sensor_track's  ancestor  chain:  c3i_system->track_database_manager 

filter_comms_tracks's  ancestor  chain:  c3i_system->track_database_manager 

filtersensortracks's  ancestor  chain:  c3i_system->track_database_manager 

monitor_ownship_position's  ancestor  chain:  c3i_system->track_database_manager 
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displaytracks's  ancestor  chain:  c3i_system->user_interface 
emergency_status_screen's  ancestor  chain:  c3i_system->user_interface 
get_user_inputs's  ancestor  chain:  c3i_system->user_interface 
manageuserinterface's  ancestor  chain:  c3i_system->user_interface 
message_arrival_panel's  ancestor  chain:  c3i_system->user_interface 
message_editor's  ancestor  chain:  c3i_system->user_interface 
status_screen's  ancestor  chain:  c3i_system->user_interface 
weapons_interface's  ancestor  chain:  c3i_system 
weapons_systems's  ancestor  chain:  c3i_system 
PROTOTYPE  ROOT  OPERATOR  NAME:  c3i_system 
OPERATOR  c3i_system 

SPECIFICATION 
DESCRIPTION  {  <text>  } 

END 

IMPLEMENTATION 
GRAPH 
VERTEX  commsinterface 
VERTEX  commslinks:  1200  MS 
VERTEX  navigationsystem:  800  MS 
VERTEX  sensor_interface 
VERTEX  sensors:  800  MS 
VERTEX  track_database_manager 
VERTEX  userinterface 
VERTEX  weapons_interface:  500  MS 
VERTEX  weapons_systems:  500  MS 

EDGE  weaponstatusdata  weapons_systems  ->  weaponsinterface 

EDGE  commsemail  commsinterface  ->  userinterface 

EDGE  tddarchivesetup  userinterface  ->  commsinterface 

EDGE  commsaddtrack  commsinterface  ->  trackdatabasemanager 

EDGE  tcd_emission_control  userinterface  ->  comms_interface 

EDGE  tcd_transmit_command  userinterface  ->  commsinterface 

EDGE  tcd_network_setup  userinterface  ->  commsinterface 

EDGE  initiate_trans  userinterface  ->  commsinterface 

EDGE  terminate_trans  user_interface  ->  commsinterface 

EDGE  sensor_add_track  sensor_interface  ->  track_database_manager 

EDGE  tdd_filter  userinterface  ->  track_database_manager 

EDGE  out_tracks  trackdatabasemanager  ->  userinterface 

EDGE  input_link_message  commslinks  ->  commsinterface 

EDGE  positiondata  navigationsystem  ->  trackdatabasemanager 

EDGE  position_data  navigationsystem  ->  sensor_interface 

EDGE  sensordata  sensors  ->  sensorinterface 

EDGE  weaponsemrep  weaponsinterface  ->  user_interface 

EDGE  weapons_statrep  weaponsinterface  ->  user_interface 
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DATA  STREAM 
input_link_message:  filename, 
positiondata:  ownship_navigation_info, 
sensor_data:  sensor_record, 
weaponstatusdata:  weaponstatus, 
weaponsemrep :  weapon_status_report, 
weaponsstatrep :  weapon_status_report, 
comms_email:  filename, 
tddarchi  vesetup :  archi  ve_setup, 
comms_add_track:  addtracktuple, 
tcd_emission_control:  emissions_control_command, 
tcdtransmitcommand:  typel, 
tcd_network_setup:  network_setup, 
initiatetrans:  initiatetransmissionsequence, 
terminatetrans:  boolean, 
sensoraddtrack:  add_track_tuple, 
tddfilter:  set_track_filter, 
outtracks:  track_tuple 
CONTROL  CONSTRAINTS 
OPERATOR  commsinterface 
OPERATOR  commslinks 

PERIOD  50000  MS 
OPERATOR  navigation_system 

PERIOD  50000  MS 
OPERATOR  sensor_interface 
OPERATOR  sensors 

PERIOD  50000  MS 
OPERATOR  track_database_manager 
OPERATOR  userinterface 
OPERATOR  weapons_interface 

TRIGGERED  BY  SOME  weapon_status_data 

OUTPUT  weaponsemrep  IF  (((weaponstatusdata.  status  =  DAMAGED)  OR 
(weapon_status_data.  status  =  SERVICE_REQUIRED))  OR  (weaponstatusdata.  status 
OUT_OF_AMMUNITION)) 

OPERATOR  weaponssystems 

PERIOD  50000  MS  " 
END 

OPERATOR  commsinterface 
SPECIFICATION 
INPUT 
tdd_archive_setup :  archi  vesetup, 
tcdemissioncontrol:  emissionscontrolcommand, 
tcdtransmitcommand:  transmit_command, 
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tcdnetworksetup :  networksetup, 

inputlinkmessage:  filename, 

initiate_trans:  initiate_transmission_sequence, 

terminatetrans:  boolean 
OUTPUT 

commsemail:  filename, 

comms_add_track:  addtracktuple 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION 
GRAPH 
VERTEX  converttojextfile:  800  MS 
VERTEX  decide_for_archiving:  500  MS 
VERTEX  extract  Jracks:  500  MS 
VERTEX  forward_for_transmission:  500  MS 
VERTEX  make_routing:  500  MS 
VERTEX  parse  inputfile:  500  MS 
VERTEX  prepare_periodic  report:  800  MS 

EDGE  output_messages  forward  forjransmission  ->  convert  to  text  file 
EDGE  input  textrecord  parse  input_file  ->  decide_for_archiving 
EDGE  commstextfile  decide_for_archiving  ->  extract_tracks 
EDGE  transmissionmessage  make_routing  ->  forwardfortransmission 
EDGE  tcdtransmitcommand  prepare_periodic_report  ->  makerouting 
EDGE  tddarchivesetup  EXTERNAL  ->  decideforarchiving 
EDGE  tcd_emission_control  EXTERNAL  ->  forward_for_transmission 
EDGE  tcdtransmitcommand  EXTERNAL  ->  makerouting 
EDGE  tcd_network_setup  EXTERNAL  ->  make_routing 
EDGE  inputlinkmessage  EXTERNAL  ->  parse_input_file 
EDGE  initiatetrans  EXTERNAL  ->  preparejperiodicreport 
EDGE  terminatetrans  EXTERNAL  ->  prepare_periodic_report 
EDGE  comms_email  decide_for_archiving  ->  EXTERNAL 
EDGE  commsaddtrack  extract_tracks  ->  EXTERNAL 

DATA  STREAM 

outputmessages:  message_list, 

input_text_record:  text_record, 

comms_text_file:  text_record, 

transmissionmessage:  transmission_command 
CONTROL  CONSTRAINTS 

OPERATOR  converttojextfile 
TRIGGERED  BY  SOME  outputmessages 

OPERATOR  decideforarchiving 
TRIGGERED  BY  SOME  inputtextrecord 


174 


OUTPUT  commstextfile  IF  comms_text_file.  archive 

OUTPUT  commsemail  IF  NOT(comms_text_file.is_track) 
OPERATOR  extracttracks 

TRIGGERED  IF  commstextfile.istrack 
OPERATOR  forwardfortransmission 

TRIGGERED  BY  SOME  transmissionmessage 

OUTPUT  outputmessages  IF  (tcd_emission_control  =  UNRESTRICTED) 
OPERATOR  makerouting 

TRIGGERED  BY  SOME  tcdtransmitcommand 
OPERATOR  parse_input_file 

TRIGGERED  BY  SOME  inputlinkmessage 
OPERATOR  prepare_periodic_report 

TRIGGERED  IF  NOT(terminatetrans) 

PERIOD  50000  MS 
END 

OPERATOR  convert_to_text_file 
SPECIFICATION 
INPUT 

output_messages:  message_list 
MAXIMUM  EXECUTION  TIME  800  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  convert_to_text_file 
END 

OPERATOR  decide_for_archiving 
SPECIFICATION 
INPUT 
input_text_record:  text_record, 
tdd_archive_setup:  archive_setup 
OUTPUT 
comms_text_file:  text_record, 
commsemail:  filename 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  decide_for_archiving 
END 

OPERATOR  extract  tracks 
SPECIFICATION 
INPUT 
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comms_text_file:  textrecord 
OUTPUT 

comms_add_track:  add_track_tuple 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  extracttracks 
END 

OPERATOR  forwardforjransmission 
SPECIFICATION 
INPUT 
transmission_message:  transmission_command, 
tcdemissioncontrol:  emissionscontrolcommand 
OUTPUT 

outputmessages:  messagelist 
STATES  waiting_messages:  messagelist  INITIALLY  null 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  forwardforjransmission 
END 

OPERATOR  make_routing 
SPECIFICATION 
INPUT 
tcd_transmit_command:  transmitcommand, 
tcd_network_setup:  networksetup 
OUTPUT 

transmission_message:  transmission_command 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  make_routing 
END 

OPERATOR  parseinputfile 
SPECIFICATION 
INPUT 

input_link_message:  filename 
OUTPUT 
input_text_record:  text_record 
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MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  parse_input_file 
END 

OPERATOR  prepare_periodic_report 
SPECIFICATION 
INPUT 
initiate_trans:  initiate_transmission_sequence, 
terminatetrans:  boolean 
OUTPUT 

tcd_transmit_command:  transmitcommand 
MAXIMUM  EXECUTION  TIME  800  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  prepare_periodic_report 
END 

OPERATOR  commslinks 
SPECIFICATION  " 
OUTPUT 

input_link_message:  filename 
MAXIMUM  EXECUTION  TIME  1200  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  commsjinks 
END 

OPERATOR  navigation_system 
SPECIFICATION 
OUTPUT 

position_data:  ownshipnavigationinfo 
MAXIMUM  EXECUTION  TIME  800  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  navigationsystem 
END 

OPERATOR  sensorinterface 
SPECIFICATION 
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INPUT 

sensordata:  sensor_record, 

position_data:  ownship_navigation_info 
OUTPUT 

sensor_add_track :  add_track_tuple 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION 
GRAPH 
VERTEX  analyze_sensor_data:  500  MS 
VERTEX  prepare_sensor_track:  500  MS 

EDGE  sensor_contact_data  analyzesensordata  ->  preparesensortrack 
EDGE  sensordata  EXTERNAL  ->  analyze_sensor_data 
EDGE  positiondata  EXTERNAL  ->  prepare_sensor_track 
EDGE  sensor_add_track  prepare_sensor_track  ->  EXTERNAL 

DATA  STREAM 

sensor_contact_data:  localtrackinfo 
CONTROL  CONSTRAINTS 
OPERATOR  analyzesensordata 

TRIGGERED  BY  SOME  sensor_data 
OPERATOR  preparesensortrack 
TRIGGERED  BY  ALL  sensorcontactdata,  positiondata 
END 

OPERATOR  analyzesensordata 
SPECIFICATION 
INPUT 

sensordata:  sensor_record 
OUTPUT 

sensor_contact_data:  localtrackinfo 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  analyze_sensor_data 
END 

OPERATOR  preparesensortrack 
SPECIFICATION 
INPUT 
sensor_contact_data:  local_track_info, 
positiondata:  ownship_navigation_info 
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OUTPUT 

sensoraddtrack:  addtracktuple 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  preparesensorjrack 
END 

OPERATOR  sensors 
SPECIFICATION 
OUTPUT 

sensor_data:  sensor_record 
MAXIMUM  EXECUTION  TIME  800  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  sensors 
END 

OPERATOR  trackdatabasemanager 
SPECIFICATION 
INPUT 
tdd_filter:  set_track_filter, 
commsaddtrack:  addtracktuple, 
sensoraddtrack:  addtracktuple, 
positiondata:  ownship_navigation_info 
OUTPUT 

outtracks:  tracktuple 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION 
GRAPH 
VERTEX  add_comms_track:  500  MS 
VERTEX  addsensortrack:  500  MS 
VERTEX  filter_comms_tracks:  500  MS 
VERTEX  filter_sensor_tracks:  500  MS 
VERTEX  monitorownshipjposition:  500  MS 

EDGE  filteredcommstrack  filtercommstracks  ->  add_comms_track 
EDGE  filtered_sensor_track  filtersensortracks  ->  add_sensor_track 
EDGE  tdd_filter  EXTERNAL  ->  addcommstrack 
EDGE  tddfilter  EXTERNAL  ->  add_sensor_track 
EDGE  tdd  filter  EXTERNAL  ->  filter  comms  tracks 
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EDGE  tddfilter  EXTERNAL  ->  filtersensortracks 

EDGE  commsaddtrack  EXTERNAL  ->  filtercommstracks 

EDGE  sensoraddtrack  EXTERNAL  ->  filtersensortracks 

EDGE  positiondata  EXTERNAL  ->  monitor_ownship_position 

EDGE  outtracks  addcommstrack  ->  EXTERNAL 

EDGE  outtracks  add_sensor_track  ->  EXTERNAL 

EDGE  out_tracks  monitor_ownship_position  ->  EXTERNAL 

DATA  STREAM 
filtered_comms_track:  addtracktuple, 
filtered_sensor_track:  add_track_tuple 
CONTROL  CONSTRAINTS 
OPERATOR  addcommstrack 

TRIGGERED  BY  SOME  filteredcommsjrack 
OPERATOR  addsensortrack 

TRIGGERED  BY  SOME  filtered_sensor_track 
OPERATOR  filtercommstracks 

TRIGGERED  BY  SOME  commsaddtrack 
OPERATOR  filtersensortracks 

TRIGGERED  BY  SOME  sensoraddtrack 
OPERATOR  monitor_ownship_position 

TRIGGERED  BY  SOME  positiondata 
END 

OPERATOR  addcommstrack 
SPECIFICATION 
INPUT 
filteredcommstrack:  addtracktuple, 
tdd_filter:  set_track_filter 
OUTPUT 

out_tracks:  tracktuple 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  addcommsjrack 
END 

OPERATOR  addsensortrack 
SPECIFICATION 
INPUT 
filtered_sensor_track:  add_track_tuple, 
tddfilter:  set_track_filter 
OUTPUT 
outtracks:  track_tuple 
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MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  add_sensor_track 
END 

OPERATOR  filtercommstracks 
SPECIFICATION 
INPUT 
comms_add_track:  add_track_tuple, 
tddfilter:  set_track_filter 
OUTPUT 

filtered_comms_track:  add_track_tuple 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  filter_comms_tracks 
END 

OPERATOR  filtersensortracks 
SPECIFICATION 
INPUT 
sensor_add_track :  addtracktuple, 
tdd_filter:  set_track_filter 
OUTPUT 

filtered_sensor_track:  addtrackjuple 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  filter_sensor_tracks 
END 

OPERATOR  monitor_ownship_position 
SPECIFICATION 
INPUT 
positiondata:  ownship_navigation_info 
OUTPUT 

outtracks:  track_tuple 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 
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IMPLEMENTATION  ADA  monitor_ownship_position 
END 

OPERATOR  userinterface 
SPECIFICATION 
INPUT 

outtracks:  track_tuple, 

weaponsemrep :  weapon_status_report, 

commsemail:  filename, 

weapons_statrep :  weapon_status_report 
OUTPUT 

tdd_archive_setup:  archivesetup, 

initiate_trans:  initiate_transmission_sequence, 

terminatetrans:  boolean, 

tcd_network_setup:  network_setup, 

tcd_emission_control:  emissions_control_command, 

tdd  filter:  set_track_filter, 

tcd_transmit_command:  transmitcommand 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION 
GRAPH 
VERTEX  displayjracks 
VERTEX  emergency_status_screen 
VERTEX  get_user_inputs 
VERTEX  manage_user_interface 
VERTEX  message_arrival_panel 
VERTEX  message_editor 
VERTEX  status_screen 

EDGE  td_track_request  getuserinputs  ->  display_tracks 

EDGE  tcd_status_query  getuserinputs  ->  status_screen 

EDGE  editorselected  get_user_inputs  ->  message_editor 

EDGE  outjracks  EXTERNAL  ->  displaytracks 

EDGE  weapons_emrep  EXTERNAL  ->  emergency_status_screen 

EDGE  comms_email  EXTERNAL  ->  message_arrival_panel 

EDGE  weaponsstatrep  EXTERNAL  ->  status_screen 

EDGE  tddarchivesetup  get_user_inputs  ->  EXTERNAL 

EDGE  initiatetrans  get_user_inputs  ->  EXTERNAL 

EDGE  terminatetrans  get_user_inputs  ->  EXTERNAL 

EDGE  tcdnetworksetup  get_user_inputs  ->  EXTERNAL 

EDGE  tcd_emission_control  get_user_inputs  ->  EXTERNAL 

EDGE  tdd_filter  get_user_inputs  ->  EXTERNAL 

EDGE  tcd_transmit_command  messageeditor  ->  EXTERNAL 
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DATA  STREAM 
td_track_request:  databaserequest, 
tcd_status_query:  boolean, 
editor_selected:  boolean 
CONTROL  CONSTRAINTS 
OPERATOR  displaytracks 

TRIGGERED  BY  SOME  outjracks 
OPERATOR  emergencystatusscreen 

TRIGGERED  BY  SOME  weaponsemrep 
OPERATOR  getuserinputs 
OPERATOR  manageuserinterface 
OPERATOR  message_arrival_panel 

TRIGGERED  BY  SOME  commsemail 
OPERATOR  messageeditor 

TRIGGERED  IF  editorselected 
OPERATOR  statusscreen 

TRIGGERED  IF  tcdstatusquery 
END 

OPERATOR  displaytracks 
SPECIFICATION 
INPUT 
out_tracks:  track_tuple, 
td_track_request:  databaserequest 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  displayjracks 
END 

OPERATOR  emergency_status_screen 
SPECIFICATION 
INPUT 

weapons_emrep :  weaponstatusreport 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  emergencystatusscreen 
END 

OPERATOR  getuserinputs 
SPECIFICATION 
OUTPUT 
tddarchivesetup:  archive_setup, 
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tddfilter:  set_track_filter, 
tdtrackrequest:  database_request, 
tcd_status_query:  boolean, 
tcdnetworksetup:  networksetup, 
tcdemissioncontrol:  emissions_control_command, 
editor_selected:  boolean, 
initiate_trans:  initiate_transmission_sequence, 
terminatetrans:  boolean 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  get_user_inputs 
END 

OPERATOR  manageuserinterface 
SPECIFICATION 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  manageuserinterface 
END 

OPERATOR  message_arrival_panel 
SPECIFICATION 
INPUT 
comms_email:  filename 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  message_arrival_panel 
END 

OPERATOR  messageeditor 
SPECIFICATION 
INPUT 

editorselected:  boolean 
OUTPUT 

tcd_transmit_command:  transmitcommand 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  messageeditor 
END 

OPERATOR  status  screen 
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SPECIFICATION 
INPUT 
weaponsstatrep :  weaponstatusreport, 
tcd_status_query:  boolean 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  status_screen 
END 

OPERATOR  weapons_interface 
SPECIFICATION 
INPUT 
weapon_status_data:  weaponstatus 
OUTPUT 
weapons_emrep :  weapon_status_report, 
weapons_statrep :  weapon_status_report 

STATES  ciws_status:  weaponstatusjype  INITIALLY  READY 
STATES  gunstatus:  weapon_status_type  INITIALLY  READY 
STATES  tws_status:  weapon_status_type  INITIALLY  READY 
STATES  mk_48_status:  weaponstatusjype  INITIALLY  READY 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  weapons  interface 
END 

OPERATOR  weaponssystems 
SPECIFICATION 
OUTPUT 

weapon_status_data:  weapon_status 
MAXIMUM  EXECUTION  TIME  500  MS 
DESCRIPTION  {  <text>  } 
END 

IMPLEMENTATION  ADA  weapons_systems 
END 

converttotext  Jile's  ancestor  chain:  c3i_system->comms_interface 
decide  forarchiving's  ancestor  chain:  c3i_system->comms  interface 
extract_tracks's  ancestor  chain:  c3i_system->comms  interface 
forwardfortransmission's  ancestor  chain:  c3i_system->comms_interface 
makerouting's  ancestor  chain:  c3i_system->comms_interface 
parseinputfile's  ancestor  chain:  c3i_system->comms_interface 
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prepare__periodic_report's  ancestor  chain:  c3i_system->comms_interface 
commslinks's  ancestor  chain:  c3i_system 
navigationsystem's  ancestor  chain:  c3i_system 
analyzesensordata's  ancestor  chain:  c3i_system->sensor_interface 
prepare_sensor_track's  ancestor  chain:  c3i_system->sensor_interface 
sensors's  ancestor  chain:  c3i_system 

add_comms_track's  ancestor  chain:  c3i_system->track_database_manager 
add_sensor_track's  ancestor  chain:  c3i_system->track_database_manager 
filter_comms_tracks's  ancestor  chain:  c3i_system->track_database_manager 
filter_sensor_tracks's  ancestor  chain:  c3i_system->track_database_manager 
monitor_ownship_position's  ancestor  chain:  c3i_system->track_database_manager 
displaytracks's  ancestor  chain:  c3i_system->user_interface 
emergency_status_screen's  ancestor  chain:  c3i_system->user_interface 
get_user_inputs's  ancestor  chain:  c3i_system->user_interface 
manage_user_interface's  ancestor  chain:  c3i_system->user_interface 
message_arrival_paners  ancestor  chain:  c3i_system->user_interface 
message_editor's  ancestor  chain:  c3i_system->user_interface 
status_screen's  ancestor  chain:  c3i_system->user_interface 
weaponsinterface's  ancestor  chain:  c3i_system 
weapons_systems's  ancestor  chain:  c3i_system 

Test-Case:  testoutfile 

This  test-case  successfully  demonstrated  get  and  put  of  c3i_system.NEW.psdl. 
This  file  was  created  from  the  prototype  reconstructed  in  test_dg_2.  The  test  driver  and 
output  are  not  listed  for  this  test-case. 
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